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preface 


spherr:  d0C“"entatl°"  th.  two-level  Mintz-Arakawa  atmo- 

Arnkawa  oTthe  D  "4*1  deVal°PCd  by  Pr°£— ™  M.U  and 

- iMr;r;loey; universi-  °f  c“- 

.  ,  rst  of  a  series  of  numerical  models  of 

he  f0ba  ClrCUlatl0n  b61"*  —  «  Rand  1„  a  research  program  „„ 

.  dynamics  of  climate.  Through  the  selective  alteration  of  the 

-del  s  initial  and  boundary  conditions,  and  of  the  model's  physical 

the  sZitIvit!'6?'"'  °f  atn0SPberlc  ^  is  planned  that 

tivity  and  response  of  the  world's  climates  to  either  de¬ 
bate  or  inadvertent  modification  he  explored,  it  is  the  purpose 
present  documentation  to  facilitate  those  modifications  of 
e  model  that  may  be  required  to  simulate  such  climatic  effects 
i;  model,  which  was  developed  at  UCIA  with  the  support  of  the  Na¬ 
nai  Science  Foundation,  is  undergoing  continuing  development 
particularly  with  respect  to  the  parameterization  of  convective  heat- 
and  radiative  transfer.  The  numerical  solutions  shown  in  this 
eport  are  for  Illustrative  purposes  only  and  should  not  he  used  to 
a  ge  i  odei's  ability  to  simulate  climate.  Although  every  efl 
t  has  been  made  to  ensure  the  accuracy  of  the  model  description 

used  here,  the  responsibility  for  any  errors  or  misrepresents 

rests  solely  with  the  authors.  nntations 

the  AdTvhae„RT»reSearCh  Pr°gra"  °n  Clln,ate  dy"a"iCS  15  sP°"»°tod  »y 
a  Adva  ced  Research  Projects  Agency,  and  is  directed  to  the  system- 

•0  exploration  of  the  structure  and  stability  of  the  earth's  cli- 
•  Meteorological  studies  suggest  that  technologically  feasible 

::zcr: sub8tantiai  *■  -  ■**- -  - 

scale  thee  h  'h*1'  Cbara‘“£'  - 

le.  these  changes  might  be  both  deleterious  and  irreversible.  If 

nch  perturbations  were  to  occur,  the  results  might  be  seriously 
detrimental  to  the  welfare  of  this  countrv  c  -u  * 

rationally  and  effectively  to  any  such  °  ^  ^ 

that  we:  (1)  evaluate  all  occurrences,  it  is  essential 

evaluate  all  consequences  of  a  variety  of  possible 
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occurrences  that  might  modify  the  climate,  (2)  detect  tvends  in  the 
global  circulation  that  presage  changes  in  the  climate,  either  natural 
or  artificial,  and  (3)  determine,  if  possible,  means  to  counter 
potentially  deleterious  climatic  changes.  Our  possession  of  this 
knowledge  would  make  incautious  experimentation  unnecessary.  The 
present  Report  is  a  technical  contribution  to  this  larger  study  of  the 
effects  on  climate  of  environmental  perturbations. 
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SUMMARY 


In  this  documentation  the  physical  bases  of  the  Mintz-Arakawa 
two-level  atmospheric  model  are  summarized,  and  the  numerical  pro¬ 
cedures  and  computer  program  for  its  execution  are  presented  in  de¬ 
tail.  The  physics  of  the  model  is  summarized,  with  particular  at¬ 
tention  given  to  the  treatment  of  the  moisture  and  heat  sources, 
including  the  parameterization  of  convective  processes,  cloudiness, 
and  radiation.  The  numerical  approximations  and  finite-difference 
equations  used  in  the  model's  numerical  simulations  are  also  given. 
Throughout  the  documentation  the  emphasis  is  on  the  specific  details 
of  the  model  in  its  present  form,  rather  than  on  the  derivation  or 
justification  of  its  present  design. 

To  facilitate  the  use  of  this  model,  a  complete  listing  of  the 
code  as  written  in  FORTRAN  language  is  given,  together  with  a  de¬ 
scription  of  all  constants  and  parameters  used.  A  complete  dictio¬ 
nary  of  FORTRAN  variables,  a  dictionary  of  principal  physical  fea¬ 
tures,  and  a  complete  list  of  symbols  are  presented.  To  illustrate 
the  model's  performance,  samples  of  its  solutions  for  selected  vari¬ 
ables  at  a  specific  time  are  also  given. 
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I .  INTRODUCTION 


One  of  the  more  widely  known  numerical  models  of  the  global  at¬ 
mospheric  general  circulation  is  that  developed  by  Professors  Mintz 
and  Arakawa  at  the  Department  of  Meteorology,  UCLA.  First  formulated 
in  the  early  1960s,  this  model  has  undergone  a  series  of  modifications 
and  improvements,  ar.d  has  been  used  in  a  number  of  simulations  of  the 
global  climate  and  in  tests  of  atmospheric  predictability.  Although 
it  addresses  the  primary  dynamical  and  thermal  variables  at  only  two 
tropospheric  levels,  the  model  is  relatively  sophisticated  in  its 
treatment  of  the  physics  of  large-scale  atmospheric  motion,  and  the 
method  of  numerical  solution  is  relatively  complex. 

It  is  the  purpose  of  this  Report  to  describe  the  model  from  a 
user's  viewpoint,  in  order  to  facilitate  its  actual  use  in  a  program 
of  climatic  simulation.  Although  some  description  of  the  model's  ba¬ 
sic  equations  is  necessary,  it  is  not  our  present  purpose  to  present 
their  derivation  nor  to  discuss  the  Justification  of  the  model's  many 
physical  parameterizations  and  numerical  procedures.  Instead,  we  have 
attempted  to  set  forth  several  aspects  of  the  model:  its  physical  ba¬ 
sis,  its  numerical  formulation  and  solution,  its  computer  code,  and 
its  typical  results.  These  aspects  are  related  to  one  another  by  the 
provision  of  a  dictionary  of  selected  terms  and  a  list  of  physical  and 
FORTRAN  symbols.  The  description  of  the  model's  physics,  given  in 
Chapter  II,  is  Intended  to  present  the  basic  differential  equations 
and  physical  constants;  the  corresponding  difference  equations  and 
other  numerical  approximations  used  in  the  program  are  presented  in 
Chapter  III.  This  is  followed  by  a  summary  of  the  program's  operating 
characteristics  in  Chapter  IV,  together  with  some  typical  results  for 
selected  variables,  and  by  Chapter  V,  which  presents  a  physics  dic¬ 
tionary  giving  a  brief  summary  of  the  treatment  of  certain  variables 
and  effects.  As  a  supplement  to  the  preceding  chapters,  a  comprehen¬ 
sive  list  of  symbols  is  given  in  Chapter  VI.  Finally,  the  model's 
Integration  and  output  map-routine  codes  as  written  in  FORTRAN  are 
presented  in  extenso  in  Chapter  VII,  followed  by  a  FORTRAN  dictionary 
in  Chapter  VIII,  whose  purpose  is  to  permit  ready  interpretation  of 
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speclflc  portions  of  the  program.  It  Is  hoped  that  this  documentation 
will  answer  the  question,  "Just  how  are  the  circulation  simulations 

made?" 

A  previous  description  of  the  model  (In  orte  of  its  earlier  ver¬ 
sions)  was  given  by  Mintz  (1965,  1968),  and  has  been  supplemented  by 
Arakawa  (1970).  Further  details  of  the  treatment  of  convection  and 
radiation  were  given  by  Arakawa,  Katayama,  and  Mintz  (1969).  An  ex¬ 
tended  description  of  the  basic  model  and  the  computational  procedures 
used  was  prepared  by  Langlois  and  Kwok  (1969).  This  latter  publica¬ 
tion  has  been  of  particular  use  in  the  preparation  of  the  present  doc¬ 
umentation,  although  the  present  version  of  the  model  differs  slightly 
from  the  version  described  by  them.  In  one  form  or  another  the  Mintz- 
Arakawa  two-level  model  was  applied  to  the  estimation  of  atmospheric 
predictability  by  Chamey  (1966)  and  Jastrow  and  Halem  (1970),  and  was 
applied  to  the  simulation  of  the  circulation  of  the  Martian  atmosphere 
by  Leovy  and  Mintz  (1969).  The  present  version  of  the  model  is  being 
used  in  a  program  of  experimentation  on  the  dynamics  of  climate  at  Rand, 
and  will  form  the  basis  of  future  model  changes  and  extensions. 


L 


-3- 


II.  MODEL  DESCRIPTION  —  PHYSICS 

In  this  chapter  the  physical  and  dynamical  basis  of  the  Mlntx- 
Arakava  two-level  general  circulation  model  Is  presented,  together  with 
a  summary  of  the  basic  differential  equations  and  boundary  conditions. 
Particular  attention  has  been  given  to  the  preparation  of  a  stannary  of 
the  various  physical  approximations  in  the  model's  treatment  of  radia¬ 
tion,  moisture,  and  convection. 

A.  NOTATION  AND  VERTICAL  LAYERING 

In  the  first  instance  the  present  model  is  for  the  troposphere 
onlu,  and  divides  the  atmosphere  beneath  an  assured  lsobarlc  tropopausc 
into  two  layers,  as  sketched  In  Fig.  2.1.  At  the  center  of  each  layer 
are  the  reference  levels  (1  and  3)  at  which  the  basic  variables  of  the 
model  are  carried.  At  the  interface  between  the  layers  (level  2),  as 
well  •<*  the  tropopause  and  earth's  surface,  certain  additional  vari¬ 
ables  and  conditions  are  specified.  For  convenience,  the  atmosphere 
is  divided  in  the  vertical  according  to  mass  (or  pressure),  and  the 
dimensionless  vertical  coordinate,  o,  in  introduced 


where  p  is  the  pressure,  p^  the  (constant)  tropopause  pressure,  and  p 
the  (variable)  pressure  at  the  earth's  surface.  The  levels  1,  2,  and 
3  are  defined  as  those  for  a  •  1/4,  J/2,  and  3/4,  respectively,  with 
the  tropopause  corresponding  to  o  ■  0  and  the  surface  always  given  by 
o  ■  1.  Thus,  if  the  surface  pressure  is  approximately  1000  mb  and 
the  tropopause  is  assumed  to  be  at  200  mb,  the  levels  1  and  3  corre¬ 
spond  approximately  to  the  400-mb  and  800-s*  levels,  respectively. 

Although  a  comprehensive  list  of  symbols  appears  later  in  this 
report  (see  Chapter  VI),  it  is  convenient  to  introduce  the  more  cos- 
mon  variables  at  this  point.  Anticipating  the  use  of  spherical  coor¬ 
dinates,  the  independent  variables  are: 
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Tropopouse 


Upper 
lo  yer 


Lower 

layer 


Level  I,  <r  e  1/4 

Level  2,  <r  =  1/2 
Level  3,  cr  ■  3/4 


Earth's  surface 


Fig.  2.1  —  Schematic  representation  of  the  model's 
vertical  structure. 


JL 


-5- 


9-  latitude,  positive  northward  from  the  equator 
A  •  longitude,  positive  eastward  from  Greenwich 
a  -  dimensionless  vertical  coordinate,  0  s  o  j  1,  Increasing 
downward 
t  •  time 

The  primary  dependent  (prognostic)  variables  are: 

V  -  (u, v) ,  horizontal  vector  velocity 
T  •  temperature 

*  *  Pg  “  PT*  surface  pressure  parameter 
q  •  mixing  ratio 

The  other  dependent  (diagnostic)  variables  are: 

$  •  geopotential 
a  *  specific  volume 
P  •  pressure 

o  ■  .  •lgma  vertical-velocity  measure 

The  forcing  terms  are: 

?  •  horizontal  vector  frictional  force  per  unit  mass 

e 

H  •  diabetic  heating  rate  per  unit  mass 

e 

Q  •  rate  of  moisture  addition  per  unit  mass 

The  basic  physical  constants  are: 

f  ■  2G  sin  9,  Coriolis  parameter 
n  ■  earth's  rotation  rate 
a  •  earth's  radius 
-♦ 

k  •  vertical  unit  vector 

Cp  "  8P*cific  heat  (for  dry  air)  at  constant  pressure 

R  •  specific  gas  constant  (for  dry  air) 

R  •  acceleration  of  gravity 
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B,  DIFFERENTIAL  EQUATIONS 

The  vector  equation  of  horizontal  motion  (in  o  coordinates)  may 
be  written 

+  (V  •  *V)V  +  (ttVo)  +  fk  k  »V 
■f  itV$  +  onaVn  •  it? 

where 

V  *  *  "  a  co*  <?[jr+  f*  \  c°8  V)  ] 

for  a  vector  X  -  (A> ,  A^) . 

The  thermodynamic  energy  equation  (in  0  coordinates)  is  written 

It  (V>  + ' '  ('Vh +  Is  <vs> 

-  ita(o~+  •  Vir  +  wd)  •  itH  (2.4) 


(2.2) 


(2.3) 


The  mass  continuity  equation  is 

|1+  V  .  (,5)  +|_W,  .  0  (2.5) 

The  moisture  continuity  equation  is 

ft  (lTq)  +  V  *  (7,q^  +  (*<1°>  "  *Q  (2.6) 

The  equations  (2.2)  and  (2.4)  to  (2.6)  are  the  prognostic  equations 
for  the  dependent  variables  V,  T,  n,  and  q.  The  specification  of  the 
frictional  force  (?) ,  the  heating  rate  (H),  and  the  moisture-addition 


k 
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rate  (Q) ,  or  the  right-hand  sides  of  these  equations  is  considered  in 
subsequent  sections.  Supplementing  these  equations  are  the  diagnostic 
equation  of  state. 


a  -  RT/p 

and  the  hydrostatic  equation, 


!£+  -  ° 


(2.7) 


(2.8) 


These  complete  the  dynamical  system  in  o  coordinates,  with  o  itself 
given  by  p  ■  t,p  -  PT)/rr,  where  pT  is  a  constant  (tropopause)  pressure. 


C.  BOUNDARY  CONDITIONS 

Accompanying  the  dynamical  system,  F.qs.  (2.2)  to  (2.8),  are  physi¬ 
cal  boundary  conditions  at  only  the  earth's  surface  and  the  tropopause. 
as  there  are  no  lateral  boundaries  in  the  a  system  for  the  global  at¬ 
mosphere.  At  the  earth's  surface  we  require  zero  (air)  mass  flux  nor¬ 
mal  to  the  earth's  surface  and  either  a  zero  heat  flux  or  a  specified 
surface  temperrture,  depending  upon  the  surface  character.  Thus,  we 
write  at  the  earth's  surface: 


a  -  0 

*  *  $4(*,9) 


•t  9  *  1  over  land 


(2.8a) 


at  o  -  1  over  ocean 


(2.8b) 
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Here  $^(A,9)  denotes  the  fixed  distribution  of  the  geopotential  of 

the  earth's  land  (or  Ice)  surface,  is  the  vertical  heat  flux  at 

the  surface,  and  T  (A, 9)  the  fixed  distribution  of  the  sea-surface 
s 

temperature. 

At  the  assumed  lsobarlc  tropopause  p  r  p^  we  require  the  free- 
surface  condition  dp/dt  -  0,  or 

6-0,  at  o  -  0  (2.8c) 

Although  they  are  not  strictly  boundary  conditions,  we  may  regard 
the  specification  of  the  surface  drag  coefficient  which  contributes  to 
the  horizontal  frictional  force,  ?,  in  Eq.  (2.2)  as  fixing  the  ver¬ 
tical  momentum  transfer  at  the  surface,  and  similarly  regard  the  spec¬ 
ification  of  the  surface  evaporation  (minus  the  surface  precipitation 
and  runoff)  as  determining  the  moisture  available  for  the  source  Q  in 
Eq.  (2.6).  The  determination  of  these  transfers  in  terms  of  the  model 
is  described  below.  We  might  also  regard  the  solar  radiation  at  the 
top  of  the  atmospheric  model  at  o  ■  0  as  a  boundary  condition.  Here 
this  flux  is  assumed  to  be  given  by  the  solar  constant,  modified  as 
described  below  by  the  eccentricity  of  the  earth's  orbit  and  by  the 
zenith  angle  of  the  sun. 

D.  VERTICALLY  DIFFERENCED  EQUATIONS 

1.  Vector  Form 

As  an  introduction  to  the  presentation  of  the  complete  differ¬ 
ence  equations  (including  the  horizontal  and  time  finite-difference 
forms),  the  model's  dynamical  equations  are  here  first  stated  in  terms 
of  the  variables  at  specific  model  levels  (which  statement  constitutes 
the  vertical  differencing  in  o  coordinates),  and  then  given  in  terms 
of  the  horizontal  (rectangular)  map  coordinates  actually  used  in  the 
computations.  The  dependent  variables  are  computed  at  the  several 
levels  as  shown  below: 


L 
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Table  2.1 

DISPOSITION  OF  THE  DEPENDENT  VARIABLES 


Level 

0 

6 

♦ 

P  T 

-► 

V 

q 

0  . 

0 

0 

a  a  a 

P^»  •  •  • 

a  a  a 

a  a  a 

1 - 

1 

4 

a  a  a 

♦l 

P1  T1 

V1 

0 

2  . 

1 

2 

*2 

•  a  a 

P2  •  •  • 

a  a  a 

a  a  a 

3 - 

3 

4 

a  a  a 

*3 

P3  T3 

-► 

V3 

q3 

4  . 

(surface) 

1 

0 

a  a  a 

PT  +  W 

a  a  a 

a  a  a 

We  note  that  the  mixing  ratio, 

q,  is 

carried  only  at 

level  3, 

and  that 

the  surface  pressure  is  computed  by  means  of  it.  At  the  midlevel  2, 
only  the  o  vertical  velocity  b^  is  independently  computed,  although  it 
is  sometime  useful  to  regard  the  wind  and  temperature  at  level  2  in 
terms  of  values  interpolated  between  levels  1  and  3. 

The  equation  of  horizontal  motion,  Eq.  (2.2),  is  now  written  for 
levels  1  and  3  (with  corresponding  subscripts)  as 

ft  ("fy  +  (V  •  vV1)V1  +  tto2(V1  +  V3)  +  nfk  x  % 

+  +  o^tra^Vtr  ■  nF^ 


(2.9) 
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37  OrV3)  4-  (V  •  „*3)?3  -  +  wf£  x  ^ 

+  *7*3  +  W"  -  ff?3  (2.10) 

where  vertical  finite  differences  between  a  -  0  end  a  -  1/2  end  between 

o  -  1/2  and  o  -  1  have  been  taken,  and  the  conditions  d  =  0  at  o  -  0  1 
«nd  V2  -  1/20^  +  U8ed. 

The  theraal  energy  equation  (2.4)  may  be  similarly  written  for 
levels  1  and  3  as 


It  <"V  +  7  •  (.TjJj)  ♦ 


+  V 


ira.o,  . 

— LI  (ii  +  ^ 

cp  lat  +  vi 


v«) 


ffH. 


(2.11) 


37  <"V  +  V  •  (ttT,^,) 


3  3' 


-  (r) 


+  o3) 


*V3  ,3tt  a  *  "» 

-  (^  +  V3  .  7TT)  -  -2 


(2.12) 


where  the  condition  02  -  l/2(e1  +  Oj)  has  been  used  with  the  potential 
temperature,  6,  given  by 


6  -  T(po/p)' 


with  pQ  -  1000  mb,  a  reference  pressure,  and  k  -  R/c  -  0.286. 

P 

Manipulation  of  the  mass  continuity  equation  (2.5)  applied  at  lev¬ 
els  1  and  3  with  the  conditions  d  -  0  at  c  -  0,1  leads  to  the  relations 


a7  "  ’  7  7  *  ["<Vl  +  V 


(2.13) 
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4i  *  -  h  5  •  ["(51  -  *J>] 

for  che  prediction  of  che  surface  pressure  and  the  computation  of  the 
midtropospheric  vertical  motion  field. 

The  moisture  continuity  equation  (2.6)  is  applied  only  at  the 
(lower)  level  3,  giving 

ft  (n<*3)  +  7  ‘  V3  -  l  V2)]  -  2g(E  -  C)  (2.15) 

where  the  conditions  6  «  0  at  a  •  1  and  q  ■  0  at  o  ■  1/2  have  been 
used,  and  the  wind  at  level  3  (o  ■  3/4)  is  replaced  by  a  wind  at  o  - 
7/8  found  by  linear  extrapolation  from  and  The  moisture  source 
term,  2g(E  -  C),  represents  the  net  rate  of  vapor  addition  as  a  result 
of  the  evaporation  rate,  E,  and  condensation  rate,  C,  into  the  air  col¬ 
umn  of  unit  cross  section  between  o  «  1  and  o  ■  1/2. 

The  hydrostatic  equation  (2.8)  is  Integrated  from  the  surface  to 
the  levels  1  and  3,  yielding  the  relations 


>1  "  *4  + 


<03°3  +  01°1> 


3  4 


MfeHSfl-i 

‘ > l(?)  - (5) 


(2.16) 


(2.17) 


where  ^  is  the  (fixed)  geopotential  of  the  earth's  surface,  and  where 
9  has  been  assumed  linear  in  p*  space  from  o^  •  1/4  to  the  ground 
o-l. 


2.  Rectangular  (Map)  Coordinates 

As  a  final  transformation  prior  to  the  consideration  of  the  dif¬ 
ference  equations  used  in  the  computations,  it  is  convenient  to  pre¬ 
sent  the  vertically  differenced  equations  (2.9)  to  (2.17)  in  terms  of 


the  rectangular  (or  map)  coordinatea  x  and  y.  The  grid-scale  dis¬ 
tances  m  and  n,  defined  as 


m  ■  cos  <p 


(2.18) 


represent  the  longitudinal  and  latitudinal  distancea  between  grid 
points  separated  by  AX  and  A <p,  respectively.  The  dimensionless  map 
coordinates  x  and  y  may  then  be  defined  as 


aX  cos  % 


(2.20) 


y  -  n  *a9 


(2.21) 


so  that  a  rectangular  grid-point  array  is  generated  with  unit  dis¬ 
tance  between  points.  The  reciprocals  m"1  and  n"1  are  the  conven¬ 
tional  map-scale  or  magnification  factors. 

We  also  introduce  the  new  area-weighted  variables 


n  ■  mnit 

e 

S  ■  2mnird2 

F  -  mnf  -  u  ^ 
dy 

and  the  weighted  mass  fluxes 

* 

u  ■  nitu 

* 

v  •  mirv 


(2.22) 

(2.23) 


(2.24) 


(2.25) 

(2.26) 


at  both  levels  1  and  3. 
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Upon  multiplication  by  mn,  the  equations  of  motion,  Eqs.  (2.9) 
and  (2.10),  may  thus  be  written: 


I?  (nV +  h  (Vi> + 1?  (Vi> +  5  ( J^_a) 
+  "  (”  sr  +  V“i  1 1)  •  F"vi  *  nF? 

h  <nvi)  +  h  <Vi> + 17  (Vi> +  F  (-^r  ■) 

(3  \ 

*  5T  +  V°i  I7) +  F,ui  ■  nFi 

h  (nu3)  +  h  (u3u3>  +  h  <1,3U3)  '  5  (“S’ ~) 

„  (  9V  S,\ 

4"i'ir*T3s|- 


Fttv3  -  II F" 


v,  +  v. 


d 

3x 

<U3V3> 

+  —  (v,vj 
3y  3  3 

/ 

'  3*3 

3w\ 

m  ( 

*  w 

+  V“3  3?) 

force  if  ■ 

(F*,  FF)  at 

1 


(2.27) 


(2.28) 


(2.29) 


(2.30) 


The  thermodynamic  equations  (2.11)  and  (2.12)  may  be  similarly 
written  as 


(2.31) 
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I?  ("V  +  h  <“3T3>  +  Jf  <V3>  '(g)  ( K ^ 


°3“3 


/_  iH  ,  *  3tt  *  3tt\ 
1”  57  +  u3  si  +  v3  Jj) 


nm 


(2.32) 


The  mass  and  moisture  continuity  equations  (2.13)  to  (2.15)  may 
also  now  be  written  as 


in  i  a  .  *  .  *  .  a  *  * 
St  -  2  3?  (U1  +  u3)  +  s7  (V1  +  *,> 


(2.33) 


A  =  1  3  ,  *  *  ,  3  .  *  * 
S  2[b^  (U3  '  V  +  37  (v3  "  V 


3  /TT  .  ,  3  f  ,5  *  1  * 

3t  Hq3  +  3x  |q3  4  U3  "  4  V 


,  3  „  ,5  *  1  * 
+  37  q3(4  V3  “  4  V 


(E  -  C) 


(2.34) 


(2.35) 


Equations  (2.27)  to  (2.35),  together  with  (2.16)  and  (2.17),  con 
stitute  the  final  dynamical  statement  of  the  model  in  vertically 
differenced  form.  The  introduction  of  time  and  horizontal  spatial 
finite  differences  is  considered  in  the  following  sections. 


E.  FRICTION  TERMS 

The  frictional  terms  and  F3  in  the  equations  of  horizontal 
motion  (2.9)  and  (2.10)  are  given  by  relations  of  the  form 


(2.37) 
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where  y  is  an  empirical  coefficient  for  the  vertical  shear  stress,  and 
the  factor  2g/ir  represents  the  mass  per  unit  area  in  each  of  the  two 
model  layers.  Here  z±  -  *3  is  the  height  difference  between  the  lev¬ 
els  1  and  3,  CD  is  the  surface  drag  coefficient,  the  surface  air 

density,  V  a  measure  of  the  surface  wind  (-  0.7  V  with  $  an  ex- 
a  4  ’  4 

trapolated  wind  at  level  4),  and  G  an  empirical  correction  for  gusti¬ 
ness  . 

The  frictional  force  ^  thus  represents  the  internal  downward 
transfer  of  momentum  between  the  levels  due  to  the  vertical  shear  of 
the  horizontal  wind,  whereas  the  force  F3  also  includes  the  effects 
of  surface  skin  friction. 

F.  MOISTURE.  CONVECTION.  AND  CLOUDS 

The  purpose  of  this  section  is  to  describe  the  physics  of  the 
hydrologic  cycle  used  in  the  model  and  to  develop  the  expressions  used 
to  evaluate  the  moisture-source  term,  2  (E  -  C),  on  the  right-hand 
side  of  the  moisture-balance  equation  for  the  atmosphere  [Eq.  (2.35)]. 
The  moisture  source  for  the  atmosphere  is  evaporation  from  the  surface, 
E,  and  the  moisture  sink  is  precipitation,  C.  All  the  moisture  con¬ 
densed  in  the  model  atmosphere  is  assumed  to  fall  to  the  surface  as 
precipitation.  Thus  the  moisture  sink  for  the  atmosphere,  C,  is  spec¬ 
ified  by  large-scale,  convective,  and  surface  condensation.  The  vari¬ 
ables  specifying  the  amount  of  moisture  in  the  atmosphere  and  in  the 
ground  are  q3>  the  lower-level  mixing  ratio,  and  GW,  the  ground-wet¬ 
ness  parameter.  While  q3  is  determined  in  part  by  horizontal  advec- 
tion  and  is  thus  modified  every  time  step,  GW,  E,  C,  and  that  part  of 
the  change  of  q3  due  to  E  and  C  are  computed  every  fifth  time  step 
(see  Chapter  III,  Section  A). 

Clearly,  the  amount  of  evaporation,  condensation,  and  convection 
depend  on  the  thermal  state  of  the  atmosphere,  which  is  in  turn  a 
function  of  the  exchange  of  heat  taking  place  during  these  processes. 
Instead  of  obtaining  a  simultaneous  solution  for  the  moisture  and 
thermal  states  of  the  atmosphere,  the  model  evaluates  the  evaporation 
and  the  components  of  the  condensation  in  a  sequence.  At  each  step 
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of  the  sequence  the  thermal  state  of  the  atmosphere  is  modified,  and 
the  new  values  of  temperature  are  used  in  the  next  step. 

In  the  following  subsections  each  process  is  discussed  in  the 
sequence  in  which  it  is  evaluated  in  the  FORTRAN  program.  First,  the 
temperature  lapse  rate  between  a  -  3/4  and  o  -  1/4  is  adjusted  to  the 
dry-adiabatic  lapse  rate  if  it  is  found  to  be  dry-adiabatically  un¬ 
stable;  this  convective  adjustment  is  discussed  in  Subsection  F.l. 
Second,  if  the  air  is  supersaturated  at  o  -  3/4,  large-scale  conden¬ 
sation  occurs  and  the  temperature  and  mixing  ratios  at  a  -  3/4  are 
adjusted  (see  Subsection  F.2).  Third,  the  temperature  lapse  rates  be¬ 
tween  levels  and  the  humidity  are  tested  to  determine  the  existence 
of  moist  convective  instability.  If  there  is  instability,  convective 
condensation  occurs  and  the  temperatures  and  mixing  ratios  are  ad¬ 
justed  according  to  the  three  types  of  convection  permitted: 

(a)  Middle-level  convection,  which  occurs  if  the  layer  between 
a  -  3/4  and  o  -  1/4  is  unstable  (for  moist  convection). 

(b)  Penet  ating  convection,  which  occurs  if  the  layer  from  o  - 

3/4  to  o  -  1/4  is  stable  but  the  layer  from  the  surface  to 

0  ’  3/4  18  unstable  «nd,  in  the  mean,  unstable  from  the  sur¬ 
face  to  a  -  1/4. 

(c)  Low-level  convection,  which  occurs  if  the  atmosphere  is  un¬ 
stable  onl/  between  the  surface  and  a  »  3/4, 

To  determine  the  existence  of  convection  types  (b)  and  (c) ,  one  needs 
the  temperature  and  mixing  ratios  at  the  top  of  the  surface  boundary 
layer.  All  three  forms  of  convective  condensation  and  the  physics  of 
the  boundary  layer  are  discussed  in  Subsection  F.3.  Fourth,  the  quan¬ 
tities  needed  to  evaluate  the  evaporation  from  the  surface  are  dis¬ 
cussed  in  Subsection  F.4,  and  the  moisture  balance  at  the  surface  and 
in  the  atmosphere  is  discussed  in  Subsection  F.5. 

The  final  two  subsections  are  devoted  to  parameters  which  are  re¬ 
lated  to  the  moisture  content  of  the  atmosphere  and  are  used  in  the 
radiation  balance  calculation  ir  Section  G.  In  Subsection  F.6,  the 
cloud  types  and  dond  amounts  produced  by  the  various  forms  of  conden¬ 
sation  are  discussed,  and  in  Subsection  F.7,  equations  for  the  effec¬ 
tive  water-vapor  content  of  the  atmosphere  are  derived. 


u 
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L-_  Convective  Adjustment 

»•  “  »  «*»lt  of  tK.  ch.n,e.  do.  to  advectlon,  the  .fo.ph.ro 

of  Iri  ”  b'  dry‘*'iUb*tlC*ny  <*i  *  *3>  «  «h.  banning 

e  «.tlnj  and  ool.tor.-b.lmc.  c.lcul.tlon.,  th.n  .  "conv.ctlv. 

•  jo.co.oc  1.  o.de.  Ihl,  con.l.t*  of  ..ttlo,  both  8  md  6,  e„*l  ,0 
«n  .iv. rage  e,  vhlch  1.  c.lcul.t.d  fro.  3 


6  ’  f  [l  (*1  +  fj'i 


-1 


assuming  that 


T  *  J  <Ti  ♦  T  ) 


Thus,  the  convective  adjustment  consists  of  setting 


<  K  < 

P-  P  p 
O  o  K0 


T1  +T3 
"l  *  Pj 


(2.38) 


from  which  the  temperatures  are  accordingly  recalculated 


as 


T  .  9i  K 

Ti  *7  P3 

p~ 


T.  -  — 


3  « 


(2.39) 


«  K3 


this  convective  adjustment  the  mnriei  ....  . 

j  imenc,  cne  model  proceeds  as  usual  to  the 

moisture  and  convection  calculations. 


— Large-Scale  Condensation 

L.rge-.cle  cond.na.tion  occur.  If  the  lover-level  grid  cell  1, 
auper.atur.ted  .t  the  beginning  „f  ooi.tur.-b.l.„c.  clculetlon. 


The  saturation  mixing  ratio  is  given  by 


M 


eg(T) 


q  (T)  «  —  _ 

V  M .  p  -  e.m 


(2.40) 


Vh.r.  Mu  and  Md  an  the  nan  molecular  valuta  of  water  vapor  and  dry 

",,’CCt,V'1>’  <Hw/Hd  '  °-622>.  “her,  the  a.tur.tlon  vapor  pres- 
sure  is  given  by  the  equation 


VT> 


e  exp (A  -  B  /T) 
°  e  e 


(2.41) 


»nh  ,o  .  1  mb.  .  21.656,  ,nd  ^  _  5418  dcR  K 

"  “  “  the"  deten*‘"'d  '"at  ,3  >  ,s(t3)  „  .  result  of  thc 
P  solution  of  the  moisture  continuity  equation  (2.35),  l.rge-.c.le 

condensation  1.  allied  to  occur.  This  condensation  will  remove  moia- 
ture  from  the  atmosphere  and  will  wan.  the  atmosphere  by  relea¬ 
rn*  latent  he.,,  with  the  warming  in  turn  modifying  the  saturation  ml- 
ng  rat  o  qs<T3).  The  condensation  proceeds  until  q.  -  q  (T)  at  the 
new  inarmed)  temperature.  If  the  original  temperature  and  mixing  ratio 
»  evel  3  are  written  as  To  and  the  new  temperature  T  satiafie. 


Cp(T  "  V  "  LNn  -  <J_(T)  ] 


(2.42) 


In  view  of  the  dependence  of  ^  on  T,  as  given  by  Eqs.  (2.40)  and  (2.41), 
we  seek  the  approximate  value  of  1  when 


F(T)  -  T  -  +^_j[qs(T)  .  %]  .  o 


(2.43) 


Using  the  Newton-Raphson  method,  the  first-order 
becomes 


approximation  of  T 
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whare 


F(T  ) 
o 


■  w* 


(2.45) 


and 


F’<TJ  -  3?  (TJ  -  1  +  i- 

'P 


B 


o'  dT  '‘o'  "  4  T  7"  W  ~1 


1  + 


r  ’.<vj  <2- 


46) 


Substituting  Eqs.  (2.45)  and  (2.46)  into  (2.44)  and  neglecting 

(Md/Mw)qs(To)  ln  comP*ri*on  with  1,  the  change  in  temperature  at 
level  3  as  a  result  of  large-scale  condensation  becomes 


(at3) 


r  lqo-VTo>> 

*  T  -  T  *  _ _ 

LS  °  L  Be 

1  +  s  W dt 

"  To 


(2.47) 


Th.  change  ln  moisture  content  due  to  this  large-scale  condensation 
is  found  from 


(AqJ 

LS 


c 

L 


(T3) 


LS 


and  the  new  q^  is  given  by 


q3 


(Aq,) 

LS 


(2.48) 


(2.49) 


Since  the  amount  of  precipitation  is  assumed  to  be  equal  to  the  con 
densation,  the  large-scale  precipitation  rate  becomes 

PLS  *  (*/2gow)(4q  ) 

LS 


L 
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where  (*/2g)/pw  Is  a  conversion  factor  uaed  to  obtain  the  precipitation 
rate  from  the  condenaatlon  rate  (aee  Chapter  IV,  Large-Scale  Precipita¬ 
tion  Rate:  Map  9).  Finally,  the  large-scale  condenaatlon  produces 
type-2  clouds  (see  Subsection  F.6). 

3.  Convective  Condensation 

To  determine  the  possibility  of  convection,  suitable  stability 
criteria  must  first  be  defined.  The  equivalent  potential  temperature, 
defined  as 


9e  '  9d  (t|t)  <2>51> 

where 

K 

9d  •  T  (rrv)  <2-52> 

Is  conservative  In  both  unsaturated-adlabatlc  and  saturated-adiabatic 
processes.  A  more  convenient  parameter  for  our  purposes  Is  given  by 
the  approximation 

c  T 

/“deE*dh  (2.53) 


Here 


h  -  cpT  +  gz  +  Lq  (2.54) 

shall  be  referred  to  as  the  static  energy;  It  Is  the  sum  of  the  en¬ 
thalpy,  the  potential  energy,  and  the  latent  energy  of  a  parcel  of 
air.  The  static  energy  Is  very  nearly  conservative  in  both  unsatu¬ 
rated  and  saturated  adiabatic  processes,  and  thus  can  be  used  in  the 
analysis  of  convective  phenomena.  For  example,  following  the  argument 


L 


-n- 


of  Arakawa  et  al.  (1969),  if  we  assume  that  the  air  in  the  cloada  at 
level  1  is  saturated,  then  the  static  energy  in  the  cloud  at  level  1 
becomes 


h 

c 


cpTcl  +  8Z1  +  L«.<Tcl> 


(2.55) 


where  qa (Tcl)  1®  the  saturation  mixing  ratio  at  the  cloud  temperature 
^cr  convenience  we  define  the  quantity 


hl  5  CPT1  +  8*1  + 


(2.56) 


where  ^  is  the  temperature  of  the  air  surrounding  the  clouds  at  lev¬ 
el  1.  Eliminating  gZj  from  Eqs.  (2.55)  and  (2.56),  the  temperate  :a 
difference  between  the  clouds  and  the  surrounding  air  at  level  1  becomes 


i  +  y , 


(2.57) 


where 


VTci>  -  «.<v 


(2.58) 


Thus  it  can  be  seen  from  Eq.  (2.57)  that  when  h£  >  h*  the  temperature 
in  the  clouds  at  level  1  is  warmer  than  that  in  the  surroundings,  and 
any  convection  that  has  been  initiated  will  tend  to  continue. 

We  now  seek  to  determine  the  value  of  h£  in  terms  of  the  Mintz- 
Arakawa  two-level  model’s  parameters.  To  do  this  we  assume  that  all 
the  entrainment  takes  place  at  level  3,  and  thus  the  vertical  mass 
flux  (M)  through  the  cloud  above  level  3  becomes 


M  ■  M^n 


(2.59) 
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■ 


where  ^  is  the  vertical  mass  flux  through  the  bottom  of  the  cloud 
*nd  n  18  the  entrainment  factor.  Wher.  there  is  entrainment,  o  >  1,  and 
the  static  energy  in  the  cloud  is  a  mixture  of  the  static  energy  enter¬ 
ing  the  base  of  the  cloud,  hb>  and  that  of  the  surrounding  air,  h  . 

Thus  we  have  ^ 


What  la  aa aimed  for  the  amount  of  entrainment  will  therefore  determine 

the  value  of  h.  In  Eq.  (2.57)  and  thus  the  existence  of  atablllty  In 
the  model. 

In  the  following  subsections,  the  value  of  n  for  each  type  of 
convection  will  be  discussed  and  the  stability  criteria  derived.  The 
criteria  will  then  be  used  to  determine  the  temperature  and  moisture 
changes  resulting  from  the  convection. 

a^.  Middle-Level  Convection.  In  middle-level  convection  we  as¬ 
sume  that  the  entrainment  at  level  3  is  much  larger  than  the  mass  flux 
through  the^bottom  of  the  cloud.  Mathematically,  it  can  be  represented 
by  setting  -  -  0  while  leaving  finite.  Thus  from  Eq.  (2.60)  we 
have  hc  -  hj,  aul  from^Eq.  (2.57)  the  condition  for  middle-level  con¬ 
vection  become.  h3  >  ly  The  parameters  h3  and  h*.  rewritten  in  terms 

of  the  potential  temperatures  and  mixing  ratios  at  levels  1  and  3, 

are 


(2.61) 


(2.62) 
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where 


e 


3 


«  T„  + 


A. 

c 


and 


(e 


1 


■  (Ti  +  ^  zi)  -  (t3  +  £  *j) 


(2.63) 


(2.64) 


To  determine  the  temperature  change  at  levels  1  and  3  due  to  this 
convection,  we  Introduce  the  concept  of  "dry"  static  energy,  S,  where 


S  =  c  T  +  gz 
P  8 


(2.65) 


Considering  convection  only,  the  continuity  equation  for  S  at  level  1 
Is 


apSj  3(nHbS1) 

3t  3z 


which  may  be  approximated  by 


a  3S. 
_ 1 

g  at 


Vsci  ■  V 


(2.66) 


(2.67) 


Neglecting  the  time  change  of  the  geopotential  and  using  Eq.  (2.57)  we 
may  write  Eq.  (2.67)  as 


(2.68) 
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Wit  h  »imilar  approximations,  the  temperature  change  at  level  3  is  given 
by 


3T3  2  nMb 

Tt~  "  Ap  c~  (S2  V  (2.69) 

P 

Equations  for  the  mixing  ratios  at  levels  1  and  3  can  be  derived 
in  a  similar  fashion.  However,  in  the  model  all  the  moisture  is  as- 
suaed  to  be  carried  at  level  3,  and  thus  the  change  of  q3  due  to  con¬ 
vection  becomes 

?r  •  k  "VW  -  "31 

•apWV  -<<3  +  rr^r(h3-hI>i  «•*» 

Here,  Eq.  (2.57)  has  been  used  to  eliminate  a  (T  ) 

s  cl 

To  eliminate  the  unknown  mass  flux  in  Eqs.  (2.68)  to  (2.70),  we 
relate  to  the  relaxation  time,  tr,  of  free  cumulus  convection.  As 
a  result  of  convection,  the  instability  of  the  layer  diminishes  and 
h3  hj.  The  time  rate  of  change  of  (hj  -  h*)  is  given  by 


>  a  3  3<h  39a(Ti>  3T 

)t  (h3  -  hj)  -  at  (S^  -  Sj)  +  L  —  -  L  — 


_  £_ 


Ap  ^ 


1 

2  -f  y 

1  +  ^h3  "  +  2  ^  +  Y1^S1 


s3)l 


(2.71) 


If  the  instability  diminishes  exponentially  with  e-folding  time  t  ,  then 


nM.  -  1-  AE  112± 
o  Tr  8  2  ♦  Yi 


N  -  h 


h3  "  hl  *  1  (1  +  Yl)(Si  ‘  s3> 


(2.72) 
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When  Eq#  (2,72)  U  combined  with  (2.68)  and  (2.69),  the  change 
in  temperature  at  levela  1  and  3  [over  the  time  interval  (5At)  between 
heating  calculation*]  due  to  the  release  of  latent  heat  is  g:lven  by 


(AT  ) 

CM 


h3- 


V2 


V 


5At 

T 


(2.73) 


(AT  )  (1  +  y. )LR/2 

(AT  )  -  CM  1 _ _ 

3  CM  (h3  -  h*)/Cp  +  (1  +  y1)LR/2  (2’7^ 

where  Yl  -  (L/Cp)  5418deg  q/T^T*2  and  LR  -  (0j  -  (^(p^)*  i8  a 

"nominal  lapse  rate."  In  this  model,  the  relaxation  time,  ?  is  taken 

to  be  1  hour.  From  Eqs.  (2.70)  and  (2.73)  the  change  in  moilture  at 
level  3  is  given  by 


(Aq_) 

CM 


c 

_R 

L 


(AT  )  +  (AT.) 

CM  3  CM 


(2.75) 


As  in  Eq.  (2.50).  the  precipitation  rate  due  to  middle-level  convection 
is  given  by 


PCM  "  (,,/2g<5 J(Aq  J 

CM 


(2.76) 


Type-1  clouds  may  be  produced  by  this  middle-level  convection  (see  Sub¬ 
section  F.6),  and  the  associated  convective  precipitation  rate  i.  illus 
trated  in  Map  13,  Chapter  IV. 

— — Boundary-Layer  Temperature  and  Moisture.  If  middle-level 
convection  does  not  occur,  either  "penetrating  convection"  or  "low- 

‘CVCl  C0nv*ct‘0"”  ■*’-•  S1"“  »«h  of  these  convection  type,  origin... 
at  the  air/ground  interf.ee,  it  1.  convenient  to  dl.cu..  flrat  the 

computation  of  the  moi.tute.  V  end  elr  tempereture.  T  et  the  .ur- 
face  along  with  other  alr/ground  Interaction  per. meters.  *  thin 
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boundary  layer  la  assumed  at  the  air/ground  Interface,  with  the  sub¬ 


script  "4"  referring  to  values  at  the  top  of  the  boundary  layer  and 
the  subscript  "g"  referring  to  values  at  the  bottom  of  the  layer,  just 
above  the  ground  or  water  surface. 

We  assume  that  the  flue  of  static  energy  [see  Eq.  (2.54)]  from 
the  surface  into  the  bottom  >if  the  boundary  layer  is  equal  to  the  flux 
out  the  top.  We  neglect  horizontal  convergence  in  this  thin  boundary 
layer  and  also  assume  negligible  geopotential  difference  between  its 

top  and  bottom.  Thus  the  flux  of  static  energy  from  the  surface  may 
be  approximated  by 


P4CDW(hg 


V 


(2.77) 


where 


W  -  Iv^l*  +  G 


(2.78) 


is  a  surface-wind  parameter  corrected  for  gustiness  and  CD  is  the  drag 
coefficient.  Implied  in  Eq.  (2.77)  are  the  assumptions  that  the  eddy- 
diffusion  coefficient  for  ths  static  energy  can  be  approximated  by 
that  for  momentum,  and  that  a  constant  transfer  coefficient  may  be  used 
In  the  boundary  layer.  Equating  (2.77)  to  the  flux  through  the  top  of 
the  boundary  layer,  we  obtain 


P4CDW(hg  -  V 


(2.79) 


where  Ay  is  the  vertical  eddy-diffusion  coefficient.  Solving  Eq.  (2.79) 
for  h^  we  obtain 


h.  -  (EDR)h  +  (1  -  EDR)h 
J  8 


(2.80) 
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Where  h3  1#  *iven  by  Eq.  (2.62),  h  is  given  by 

S 


(2.81) 


and 


EDR  - 


Vz] 

*7*3  +  CDtf 


(2.82) 


In  the  present  version  ot  th,  model  lt  Js  M>lw,d  t|)>t  A  . 

v  »re  the  surface  wind  $  is  in  m  sec"1  V  8 

s 

In  order  to  obtain  the  surface  moisture,  and  temperature, 
now  write  the  parameter  h4  from  Eq.  (2.54)  as 


2  -1 
m  sec  , 

V  we 


4 

P 


(2.83) 


By  defining  the  values  of  qg  and  q4>  one  may  solve  Eqs.  (2.80)  and  (2.83) 

"  *  ln  °f  the  surf*“  parameters  I  end  GW  .nd  the  st.tlc  energy 

st  level  3.  In  genernl  th.  ground  temperature.  T  ,„d  the  ground  wet¬ 
ness,  GW  (0  GW  5  1),  are  available  Iron  the  previous  time  step,  along 
»lth  the  level- 3  temper.ture  and  moisture.  From  these  data,  the  relative 
tumidities  at  levels  3  and  4  may  be  determined  from 


h 

v'v 


(2.84) 


and 


(2GV)(RH3) 
GW  +  RH^ 


(2.85) 
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where  Rll^  the  harmonic  mean  of  RH^,  the  relative  humidity  at  level  3, 
and  the  ground  wetness,  GW.  The  ground-level  mixing  ratio  is  assumed 
to  be  directly  proportional  to  the  ground  wetness.  Hence 

q  -  GW  q  (T  )  (2.86) 

g  Msv  g' 

where  qr (T  )  is  calculated  from  T  in  the  usual  fashion  [see  Eq.  (2.40)], 


0.622 


q  (T  ) 
s'  g' 


e  (T  ) 
s  i_ 


P4  ■ 


e  (T  ) 
s  g 


(2.87) 


and  the  ground-level  saturation  vapor  pressure  is  given  by 


es (Tg)  ■  min[eQ  exp(Ag  -  Bg/Tg)  ,  P^/16.62] 


(2.88) 


The  mixing  ratio  at  level  4  can  now  be  obtained  from  Eq.  (2.85)  and  an 

extrapolation  of  q  (T  )  to  level  4.  Thus 
a  g 


q 


4 


^4 


q  (T  )  +  Az 
s'  g' 


dT 


dT 

dz 


RH, 


q  (T  ) 

sv  g' 


c 

+  r* 


VT* 


(2.89) 


where  y 


g 


is  evaluated  from 
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L_ 

c 

P 


dT 


L  «s<y 

—  5418deg  _&■ 

CP  T2 

g 


(2.90) 


Using  Eqs.  (2.83),  (2.89),  and  (2.80),  the  temperature  at  level  4 
becomes  finally 
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T 


4 


(2.91) 


rs4 

where  is  the  value  of  the  static  energy  at  level  4  as  given  by 
Eq.  (2.80).  The  condition  on  given  by  Eq.  (2.91)  is  invoked  to  pre¬ 
vent  a  super-adiabatic  lapse  rate  between  levels  4  and  3.  From  the 


quantities  T4  and  q4  given  by  Eqs.  (2.89)  and  (2.91)  the  convection 
parameter  h4  defined  by  Eq.  (2.83)  may  then  be  evaluated,  although  the 
quantities  T4  and  q4  will  be  redefined  later  if  penetrating  or  low-level 
convection  occurs  [see  Eqs.  (2.96)  and  (2.97)  below]. 


_ Penetrating  and  L  -Level  Convection.  In  the  model,  both  pene¬ 
trating  convection  and  low-level  convection  are  mutually  exclusive  with 
middle-level  convection.  Thus,  the  first  criterion  to  be  met  is  that 
the  layer  between  level  3  and  level  1  be  stable,  i.e.,  that  h^  <  h*.  A 
second  criterion,  similar  to  Eq.  (2.57)  for  middle-level  convection,  is 
obtained  from  instability  conditions  for  the  layer  between  levels  4  and 
3.  Thus  we  first  write 


1  +  Y- 


(2.92) 


where  Tc3  is  the  temperature  of  the  rising  air  in  the  clouds  at  level  3, 
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L  <VT3> 

c  dT 
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7-  5418deg 
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(2.93) 


and 
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(2.94) 
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F°r  Penetrating  and  low-level  convection  we  assume  that  there  Is  no 
entrainment  at  level  3  (n  -  1),  and  from  Eq.  (2.60)  we  then  find  h  - 
V  Further,  we  take  the  static  energy  at  the  base  of  the  cloud,  h  , 
to  be  equal  to  its  value  at  the  top  of  the  boundary  layer,  h  .  There¬ 
fore  the  second  criterion  for  penetrating  and  low-level  convection  be¬ 
comes  h4  >  h3,  along  with  the  primary  criterion  h3  <  h*.  When  these 
two  conditions  are  met,  we  may  then  discriminate  between  penetrating 
and  low-level  convection.  From  Eq.  (2.57)  with  hc  -  h^  we  see  that 
if  *  hr  convection  can  penetrate  into  the  stable  layer  above  lev¬ 
el  3  and  reach  all  the  way  to  level  1.  This  is  therefore  the  distin¬ 
guishing  condition  for  penetrating  convection.  If,  on  the  other  hand, 
h4  <  hv  the  convection  stops  at  level  3.  This  is  therefore  the  con¬ 
dition  for  low-level  convection. 

In  the  case  of  low-level  convection,  it  is  assumed  that  h,  is  modi- 
fied  to  h3,  because  of  the  process  of  transporting  static  energy  out  of 
the  boundary  layer.  This  is  equivalent  to  assuming  that  static  energy 
in  the  cloud  becomes  h^  Low-level  convection  may  produce  type-3  clouds 
(see  Subsection  F.6),  and  condensation  and  precipitation  are  not  allowed 
to  occur;  all  the  moisture  transported  as  clouds  is  assumed  to  evaporate 
again  within  the  same  layer  with  no  release  of  latent  heat.  The  effect 
of  this  type  of  convection  is  thus  felt  only  in  the  vertical  transport 
of  sensible  heat  and  in  surface  evaporation,  where  it  alters  the  sur¬ 
face  moisture  and  temperature. 

Indicating  by  primes  the  values  prior  to  modification  by  low-level 
convection,  we  may  write 


h 


4 


(2.95) 


Substituting  the  definitions  of  h^  and  h^  into  Eq.  (2.95)  and  using 
Eq.  (2.89)  for  the  old  and  new  mixing  ratios  at  level  4,  the  surface 
temperature  and  mixing  ratios  are  given,  after  convection,  as 
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T' 
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(h;  - 

1  +  RH,y 
*  g 


(2.96) 
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q4 


(2.97) 


The  temperature  and  mixing-ratio  adjustments  at  level  4  given  by 

Eq*’  <2,96)  *nd  <2*97)  *la®  occur  In  the  case  of  penetrating  convec¬ 
tion.  To  find  the  change  in  the  temperature  and  mixing  ratios  at  lev¬ 
els  3  and  1  in  this  case  we  continue  to  assume  modification  of  h^  to 
h3»  and  follow  the  same  procedure  used  in  middle-level  convectio^. 

Thu«*  ^  Eqs ,  (2.68)  and  (2.69)  and  using  h*  a.  the  static  energy 
in  the  cloud,  we  obtain 


* 

-  + 


(2.98) 


and 


3T 

- -  O  M 

3t  Ap  "b 


(2.99) 


To  determine  the  value  of  the  mass  flux,  we  assume,  as  in  the  case  of 
middle-level  convection,  that  the  penetrating  convection  decays  with  a 
relaxation  time  Here  ^  is  determined  by  the  time  required  to  re¬ 
move  the  instability  in  the  layer  from  level  U  to  level  3,  i.e.,  the 

time  required  for  h^  to  approach  h*.  With  this  assumption,  the  mass 
flux  becomes 
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K  ' 


a;  * 


*  S.  -  S. 


+  (1  + 


V(S2  - 


V 


(2.100) 


Using  Eqs.  (2.98),  (2.99),  and  (2.100),  the  temperature  changes  at  the 

levels  1  and  3  due  to  penetrating  convection  over  the  time  interval  5At 
are  given  by 


■ 
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where 


(2.101) 


(2.102) 
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h,  -  h. 
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(2.103) 
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EDR  Tj  +  (1  +  Y3)t2, 
0.001 


If  T  &  0.001 

otherwise 


(2.104) 


(2.105) 


end  rr  Is  the  convection  relaxation  tine  as  before.  As  with  the  middle- 
level  convection,  all  the  moisture  condensed  (and  hence  precipitated)  is 
assumed  to  originate  in  the  lower  layer,  so  that  the  level-3  moisture 
change  due  to  penetrating  convection  is  given  by 


(AqJ 

CP 
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-R 
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+  (at3) 


CP 


(2.106) 


Type-1  clouds  may  be  produced  by  this  convection  (see  Subsection  F.6),  and 
the  precipitation  rate  due  to  penetrating  convection  is  given  by 


PCP  "  (*/2gow) (Aq.) 

CP 


(2.107) 
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Thi*  contributes  to  the  total  convective  precipitation  rate  illustrated 
in  Map  13,  Chapter  IV. 

4.  Evaporation 

The  evaporation  rate  per  unit  area  from  the  surface  is  approxi¬ 
mated  by  an  equation  similar  to  (2.77)  for  the  flux  of  static  energy 
from  the  surface.  Thus 

E  "  p4CDW(qg  "  qA)  (2.108) 

where  ■  pg(RT^)  1  with  R  the  gas  constant,  pg ,  the  surface  (level-4) 
pressure,  and  T^  and  q^  are  given  by  Eqs.  (2.96)  and  (2.97)  if  pene¬ 
trating  or  low-level  convection  exists,  and  otherwise  by  Eqs.  (2.91) 
and  (2.89),  The  ground-level  value  of  the  mixing  ratio  Is  given  by 

qg  "  CWqs«(Tgr)  (2.109) 

where  9se(Tgr)  is  the  effective  saturation  mixing  ratio  at  the  bottom 
of  the  boundary  layer  after  a  correction  to  include  the  effects  of  the 
radiation  balance  at  the  surface  on  the  ground-level  temperature  (see 
Subsection  G.3).  Thus 


<vv 

v  ■  vy +  —si  <Tgr  -  y  (2-no) 

where  Tgr  is  the  new  value  of  Tg  calculated  to  include  the  radiation. 

The  evaporation  thus  calculated  can  be  either  positive  or  nega¬ 
tive,  and  is  available  as  a  separate  output  from  the  program  (see  Map 
14,  Chapter  IV).  The  moisture  at  level  3  will  be  changed  in  direct  pro¬ 
portion  to  this  evaporation.  Thus,  over  the  time  interval  5At,  the 
contribution  by  evaporation  to  the  total  moisture  balance  at  level  3 
(see  following  subsection)  is  given  by 

(6q3)  -  •  E  •  5At  (2.111) 

E 
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5.  Moisture  Balance  and  Ground  Water 

Moisture  balance  is  maintained  both  in  the  form  of  moisture  at 
level  3  and  as  the  ground  water  on  the  land.  The  ocean,  ice,  and  snow 
are  considered  both  as  infinite  sources  (for  evaporation)  and  infinite 
sinks  (for  precipitation,  negative  evaporation,  and  runoff).  Although 
the  upper-level  moisture  is  calculated  as  a  function  of  lower-level 
moisture  for  radiation  purposes,  the  total  amount  at  the  upper  level 
is  otherwise  considered  to  be  negligible,  as  is  any  transport  between 
the  upper  and  lower  layers  of  the  model. 

The  level-3  moisture  balance  is  calculated  from 


(<13)  ■  (q3)  +  (Aq  ) 

new  old  J  TOTAL 


(2.112) 


where  (Aq  )  is  the  sum  of  the  level-3  moisture  changes  due  to 

TOTAL 

middle-level  convection,  CM,  or  penetrating  convection,  CP,  large- 
scale  condensation,  LS,  and  evaporation,  E.  Thus  the  expression  for 
the  moisture-source  term  of  Eq.  (2.35)  becomes 


2rang(E  -  C)  -  ~  (Aq  ) 

TOTAL 

"  sit  (Aq3)c.  "  (Aq3)  ‘  (Aq3>  -  <Aq.)  ]  (2.113) 

1  E  LS  CM  i  CP  | 

The  ground  water  is  carried  as  the  variable  GW,  which  varies  be¬ 
tween  0  for  dry  ground  and  1  for  saturated  ground.  For  ocean,  ice,  or 
snow,  GW  is  always  considered  to  be  1.  This  quantity  is  used  in  the  de¬ 
termination  of  ground  temperature  and  evaporation,  and  is  recalculated 
(for  land)  after  the  level-3  moisture  balance  has  been  determined.  If 

(AqJ  is  negative  (a  decrease  in  level-3  moisture),  enough  pre- 

TOTAL  8  v 

cipitation  occurs  for  runoff  to  be  calculated.  If  the  ground  is  not 

saturated  (GW  <  1)  then  the  runoff  is  taken  as  0.5  GW;  if  the  ground  is 

saturated,  the  runoff  is  taken  as  unity.  The  new  ground  wetness  is 

then  given  by 
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(GU)neu  -  (CW)oM  ♦  (1  -  runoff) (M3)ioiai  ^  fj  (2.114) 

where  GWM  Is  the  maximum  mass  of  water  per  unit  area  which  the  ground 

can  absorb  (here  assumed  to  be  30  g/cm  ),  and  the  factor  w/2g  is  the 

air  mas ii  in  a  vertical  column  of  unit  area  in  the  lower  model  layer. 

If  (Aq  _)  is  not  negative,  because  evaporation  is  greater  than  pre- 

TOTAL 

clpltaticr.;  the  runoff  is  zero  and  Eq.  (2.114)  represents  the  net  de¬ 
crease  of  moisture  at  the  ground.  If  (GW)  <  0  then  (GW)  is  set 

new  new 

to  zero,  and  if  (GW)  >  1  it  is  set  to  1. 

new 

6.  Clouds 

The  type  of  clouds  present  in  the  model  depends  upon  which  con¬ 
densation  and/or  convection  processes  have  occurred.  The  amount  of 
cloud  cover  depends  upon  the  relative  humidity  at  level  3,  RH^,  for 
convective  clouds,  whereas  a  complete  overcast  is  assumed  for  clouds 
caused  by  large-scale  condensation.  Figure  2.2  shows  the  assumed  physi¬ 
cal  dimensions  of  the  various  cloud  types.  Although  the  clouds  are  dnly 
parameterized  entitles  as  far  as  the  moisture  is  concerned,  they  must 
have  physical  dimensions  for  the  radiation  calculations.  In  the  pres¬ 
ent  version  of  the  program,  type-1  clouds  cannot  coexist  with  other 
types  in  any  given  grid  cell;  types  2  and  3  may  coexist. 

Type-1  clouds  may  be  described  as  towering  cumulus,  having  their 
bases  at  level  3  and  their  tops  at  level  1.  They  exist  if  either 
middle-level  or  penetrating  convection  occurs.  The  amount  of  cloud 
cover  (given  as  the  fraction  of  the  sky  covered  with  clouds)  is  de¬ 
fined  by  CL  *  -1.3  +  2.6  RH^.  If  CL  £  0  the  sky  is  defined  to  be  clear. 
This  convection  therefore  does  not  create  clouds  unless  the  relative 
humidity  at  level  3  is  greater  than  50  percent.  If  CL  >  1  it  is  reset 
to  1,  implying  a  completely  cloudy  sky. 

Type-2  clouds  may  be  described  as  a  heavy  overcast  with  base  at 
level  3  and  top  at  level  2.  They  exist  if  large-scale  condensation 
takes  place  (as  described  in  Subsection  F.2  above),  and  if  type-1  clouds 
do  not  exist  (since  strong  convection  would  destroy  these  clouds). 
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Fig.  2.2  —  Schematic  representation  of  convective  cloud  types. 

Type-1  cloud  represents  either  penetrating  or  middle- 
level  convection  and  is  assumed  to  extend  from  level 
°3  to  °l»  type-2  cloud  represents  large-scale  conden¬ 
sation  and  is  assumed  to  extend  from  level  a,  to  a, , 
and  type -3  cloud  represents  low-level  cumulus  convec¬ 
tion  and  is  assumed  to  be  confined  to  level  o3  itself. 
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When  type-2  clouds  are  present  they  always  fora  a  completely  overcast 
sky  —  l.e. ,  CL  •  1  or  0. 

Type-3  clouds  may  be  described  as  shallow  cumulus  with  bases  and 
tops  both  at  level  3.  They  exist  If  there  Is  low-level  convection 
but  no  penetrating  convection.  The  cloud  amount  Is  again  defined  as 
CL  -  -1.3  +  2.6  RHy  with  CL  reset  to  1  If  CL  >  1  and  with  CL  s  0  mean¬ 
ing  a  clear  sky.  This  cloud  type  could  possibly  coexist  with  type  2, 
but  If  so  It  would  not  affect  the  radiation,  since  cloud  type  2  Is  a 
complete  overcast  In  the  same  region. 

7.  Effective  Water-Vapor  Content 

To  determine  the  effect  of  the  moisture  on  radiation  we  must  esti¬ 
mate  the  entire  vertical  profile  of  q  from  the  single  value  q3>  The 
q3  value  used  here  Is  a  revised  one,  Including  the  effects  of  large- 
scale  condensation,  but  not  Including  changes  due  to  convective  con¬ 
densation  or  evaporation.  If  q3  <  lo"5  It  Is  set  equal  to  10~5.  Above 
120  mb  the  vapor  pressure  Is  assumed  to  be  constant  with  height,  with 
the  value  0.3316  dynes/cm  corresponding  to  the  frost-point  tempera¬ 
ture  190  deg  K,  as  suggested  by  Murgatroyd  (1960).  Thus 


q  *  0.622  ^-°y3-3-16  j 
cgs 


.206235 

p 

cgs 


p  <  120  mb 


(2.115) 


2 

where  p  is  pressure  in  cgs  units  (dynes/cm  ).  Below  120  mb  It  Is 
cgs 

assumed  that 


.1. 


ft) 


K(p3,q3) 


p  2  120  mb 


(2.116) 


where  K  is  evaluated  by  matching  q  from  Kqs.  (2.115)  and  (2.116)  at 
the  120 -mb  level 


(q  3/l . 7188  x  10-6) 
in  (p3/120  mb) 


K(p3,q3) 


(2.117) 
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The  effective  water-vapor  amount  per  unit  area  in  a  vertical  column 
below  a  given  level,  n,  with  a  pressure-broadening  correction  term  in¬ 
cluded,  is  defined  to  be 


(2.118) 


Combined  with  the  values  of  q  defined  above,  this  becomes,  for  level  n, 


* 

u 

n 


q3(P3)2 

gp„(2  +  K) 


(2.119) 


and  for  the  entire  atmospheric  column.  Including  the  stratosphere,  the 
effective  water-vapor  content  becomes 


* 

u 

CO 


q3(p3)2 
RP0(2  +  K) 


+  2.526  x  io 


(2.120) 


where  the  additive  term  is  the  effective  vapor  amount  above  120  mb,  and 
where  q3  is  set  equal  to  10-5  if  it  is  <  10“5.  The  effective  vapor 
content  of  clouds  is  described  i.i  the  following  section. 


G.  RADIATION  AND  HEAT  BALANCE 

In  this  section  the  heat  budget  of  the  earth/atmosphere  system  is 
discussed  and  the  expressions  which  are  used  to  evaluate  the  diabatic- 
heating  terms  in  the  thermodynamic  equations,  (2.31)  and  (2.32),  are 
developed,  together  with  those  expressions  used  to  determine  the  sur¬ 
face  temperature  over  land  and  over  ice-covered  oceans. 

In  addition  to  being  partly  determined  by  the  release  of  latent 
heat  during  convection  (see  Subsection  F.3),  the  net  heating  rate  at 
level  1  (o  *  1/4)  is  also  determined  by  the  amount  of  solar  radiation 
absorbed  by,  and  the  long-wave  radiation  emitted  from,  the  layer  o  -  0 
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to  o  ■  1/2.  The  heating  rate  at  level  3  (o  ■  3/4)  is  determined  by 
the  flux  of  sensible  heat  from  the  surface  and  the  release  of  latent 
heat  in  large-scale  condensation  (Subsection  F.2),  in  addition  to  the 
absorbed  and  emitted  radiation  and  the  convective  latent  heating  in 
the  layer  o  ■  1/2  to  o  ■  1.  The  treatment  of  the  short-wave  (solar) 
radiation  and  the  long-wave  (terrestrial)  radiation  used  in  the  model 
follows  the  discussion  of  Arakawa,  Katayama,  and  Mintz  (1969).  The 
so-called  short-wave  radiation  Includes  all  the  solar  radiation,  re¬ 
gardless  of  wavelength,  and  the  parameterization  for  the  attenuation 
of  this  radiation  by  Rayleigh  scattering,  for  its  reflection  from  the 
earth's  surface  and  from  clouds,  and  for  its  absorption  in  the  atmo¬ 
sphere  and  in  clouds  is  given  in  Subsection  G.l.  The  treatment  of  the 
flux  of  long-wave  radiation,  which  Includes  all  that  which  is  emitted  by 
the  atmosphere,  clouds,  and  the  earth's  surface,  is  given  in  Subsection 
G.2. 

The  ground  temperature,  T  ,  needed  to  evaluate  the  evaporation, 

8  * 

the  sensible  heat  flux  from  the  surface,  and  the  net  long-wave  surface 
radiation  is  determined  from  the  heat  balance  at  the  earth's  surface 
in  Subsection  G.3,  and  in  Subsection  G.4  a  discussion  of  the  heat  bal¬ 
ance  in  the  atmosphere  and  the  expressions  for  the  temperature  change 
due  to  dlabatlc  heating  are  given. 

1.  Short-Wave  Radiation 

The  incoming  solar  radiation  is  Immediately  divided  into  two  parts, 
that  of  wavelength  X  <  0.9u,  which  is  assumed  to  be  subject  to  Rayleigh 
scattering  only,  and  that  of  wavelength  X  J:  0.9u,  which,  in  a  clear  at¬ 
mosphere,  is  assumed  to  be  subject  to  absorption  only.  The  actual  wave¬ 
length  does  not  again  enter  into  the  model's  treatment  of  radiation. 

The  two  parts  of  the  radiation  are  designated  S  (part  subject  to  scat- 
^  ° 

terlng)  and  Sq  (part  subject  to  atmospheric  absorption),  and  are  approx¬ 
imated  as 

S8  -  0.651  S  cos  z,  (2.121) 

O  o 

SA  •  0.349  S  cos  t, 
o  o 


(2.122) 
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where  Sq  i«  the  solar  constant  (adjusted  for  the  earth/sun  distance), 
and  ;  is  the  zenith  angle  of  the  sun.  The  rationale  for  this  parti¬ 
tioning  is  described  by  Joseph  (1966).  A  stannary  of  the  disposition 
of  these  components  of  the  short-wave  radiation  for  both  clear  and 
cloudy  skies  is  given  in  Figs.  2.3  and  2.4,  and  is  described  in  detail 
in  the  following  paragraphs. 

Albedo.  The  albedo  of  the  clear  atmosphere  for  the  portion 
of  the  radiation  assumed  subject  to  (Rayleigh)  scattering  is  given  by 

“o  *  mln  i1*  °-085  -  0-247  l°810[(pg/po)  cos  c]}  (2.123) 

as  deduced  by  Katayama  using  the  estimate  of  Joseph  (1966)/  For  an 
overcast  atmosphere,  the  albedo  for  the  scattered  part  of  the  radia¬ 
tion  is  composed  of  the  contributions  of  Rayleigh  scattering  (by  atmo¬ 
spheric  molecules)  and  of  Mie  scattering  (by  cloud  drops).  The  sim¬ 
plest  useful  formulation  adopted  by  Katayama  is 

aac  "  1  '  °  "  ao)(1  “  ac  >  (2.124) 

where  a  is  the  cloud  albedo  (for  both  SA  and  SS) ,  which  is  assumed  to 
|  o  o 

be  given  by 

<*c  *0.7  for  cloud  type  1 

<*c  ■  0.6  for  cloud  type  2  (2.125) 

ac  ■  0.6  for  cloud  type  3 

The  various  cloud  types  are  discussed  in  Subsection  F.6  below. 

4. 

In  the  program,  the  expression  p  /p  in  Eq.  (2.128)  was  inadver- 

•  SO 

tently  coded  as  (pg  -  PT) (PQ  -  PT>  ;  see  instruction  10450  in  COMP  3 
in  the  listing  of  Chapter  VII.  This  error,  which  is  not  thought  to  be 
serious,  was  brought  to  our  attention  by  A.  Katayama. 
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1r.  2.3  Short-wave  radiation  in  a  clear  atmosphere.  The 
solid  arrows  indicate  the  path  of  radiative  flux, 
while  the  dashed  lines  indicate  a  region  of  the 
atmosphere  in  which  interaction  occurs  or  in  which 
a  diffuse  path  is  followed.  The  absorbed  radiation 

Aj  =  ST  -  S2  and  A.^  =  -  s£,  according  to  (2.136). 

The  program  (FORTRAN)  symbols  are  given  in  paren¬ 
theses  following  certain  of  the  physical  symbols. 
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according  to 


Fig.  2.3. 
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The  ground  albedo  a  (again  for  both  SA  and  SS)  is  taken  as 

o  0  o 

ag  “  0.07  for  ocean 

■  0.14  for  land 

0.45{l  +  (CLAT  -  10)2/[(CLAT  -  30) 2  +  (CLAT  -  10) 2 ] }  (2.126) 

for  south-polar  ice  and  snow 

*  °-4°{1  +  (CLAT  -  5) 2/[ (CLAT  -  45)2  +  (CLAT  -  5)2]} 
for  north-polar  ice  and  snow 


These  values  for  land,  ice,  and  snow  were  developed  by  Katayama  (1969) 
as  approximations  to  the  data  of  Posey  and  Clapp  (1964).  In  the  ex¬ 
pressions  for  polar  ice  and  snow,  CLAT  is  the  number  of  degrees  pole- 
ward  from  the  assumed  northern  or  southern  snowline  (as  appropriate) 
given  by  the  functions  SN0WN  and  SN0WS .  The  expression  for  north-polar 

ice  and  snow  applies  also  for  ice  at  latitudes  between  the  two  snow 
lines,  with  CLAT  -  0. 

—  The  Radlatlon  Subject  to  Scattering  (S8).  The  part  of  the 

_ j i  .  •  ....  O 


solar  radiation  which  is  assumed  to  be  scattered  does  not  interact  with 
the  atmosphere,  except  to  be  partly  scattered  back  to  space.  Thus  the 
only  part  with  which  we  are  concerned  is  that  amount  which  reaches,  and 
is  absorbed  by,  the  earth's  surface.  This  is  given  by  the  expressions 


=  V1  "  °‘a)(1  "  0/(1  -  a  a  ) 

u  5  0  O  g 

for  clear  sky 

•  soa  -  yu  -  v)/(i  -  vy 

for  overcast  sky 


(2.127) 


Multiple  reflections  between  sky  end  ground  or  between  cloud  bese  and 

struc^^^"^?  **  ^ 
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ground  are  accounted  for  by  the  terms  in  the  denominators  (see  Joseph, 
1966).  For  partly  cloudy  conditions  (neither  clear  nor  overcast)  the 
scattered  radiation  absorbed  at  the  earth's  surface  is 


CL  S®  +  (1  -  CL) S® 
8  8 


(2.128) 


where  CL  is  the  fractional  cloudiness  of  the  sky  (see  Subsection  F.6). 
The  absorption  of  this  radiation  by  the  ground  affects  the  ground  tem¬ 
perature,  and  subsequently  affects  the  long-wave  emission  from  the 
ground  and  the  ground-level  heat  balance  (see  Figs.  2.3  and  2.4). 

- - — —  ftadlat ion  Subject  to  Absorption  (sAj.  The  solar  radia¬ 
tion  subject  to  absorption  is  distributed  as  heat  to  the  various  layers 
in  the  atmosphere  and  to  the  earth's  surface.  The  absorption  is  as¬ 
sumed  to  depend  only  upon  the  effective  water-vapor  content  (u*)  in  a 
layer  -  a  quantity  calculated  from  the  model  as  previously  outlined 
(see  Subsection  F.7).  The  absorptivity  of  a  layer  is  given  by  the 
empirical  formula 


A(u\?)  -  0.271(u*  sec  0°,3°3  (2.129) 

Here  the  (dimensionless)  coefficient  0.271  has  been  found  by  increasing 
the  (dimensional)  coefficient  0.172  ly  min’1  of  the  MUgge-MBller  ab¬ 
sorption  formula  by  10  percent,  as  suggested  by  Manabe  and  MBllar  (1961), 
and  then  dividing  by  the  total  radiative  flux  subject  to  absorption, 
which  is  given  by  0.349Sq  -  0.698  ly  min’1  according  to  Eq.  (2.122). 

For  clear  sky  the  flux  of  S*  transmitted  to  a  level  n  is  given  by 


so{1  -  A<u!  -  V<>} 


(2.130) 


and  the  flux  absorbed  in  a  layer  between  an  upper  level,  i,  and  a  lower 
level,  j,  is  given  by 


(2.131) 
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For  a  cloudy  sky  the  abaorptien  in  a  cloud  la  calculated  by  assuming 
“  equivalent  water-vapor  content  which  will  abaorb  the  same  amount  of 
radiation  a.  would  the  cloud  itaelf.  Theae  Mount,  are  aa.umed  in  tha 
preaent  version  of  the  model  to  be 


65.3  g/ca2 
65.3  g/cm2 
7.6  g/cm2 


for  cloud  type  1 


for  cloud  type  2 


for  cloud  type  3 


(2.132) 


The  incoming  beam  becomes  diffuse  in  the  cloud,  and  its  path  is  assumed 
to  be  1.66  times  the  vertical  thickness  of  the  cloud.  Below  the  cloud 
the  beam  is  still  diffuse,  and  the  factor  1.66  for  path  length  Is  re¬ 
tained.  Therefore  we  have  the  following  expression,  for  the  downward 
flux  at  various  levels 


Si  "  So\}  '  A(u*  ’  V<>] 

above  the  cloud  at  level  i 


(2.133) 


A"  A 

Sm  "  So(1  -  0 

ra  o  C 


’  I  ‘  *  [<U-  '  4 


)sec  c  +  1.66 


inside  a  cloud  at  level  m 


A"  A 

SJ  •  Sc(1 


4p"  *]f+  „ 
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-  °c>  |l  -  A  [(u!  -  uJT).ec  c  +  1.66(u*  +  u*B  -  u*)] J 

-1 _  •  .  .  * 


below  a  cloud  at  level  j 


(2.135) 


The  fraction  Ap^/Ap^  which  is  equal  to  1/2  when  m  -  2  and  tvpe-1 

clouds  are  present,  has  been  inadvertently  omitted  from  the  model's 
present  FORTRAN  program. 


Li 


-46- 


where  .ub.cript.  CT  and  CB  r.f.r  to  th.  cloud  top  and  cloud  botton. 
respectively,  Apc  Is  *"otal  pressure  thickness  of  the  cloud,  and  Ap 
is  the  pressure  thickness  of  the  cloud  above  level  m.  The  factor  0 
(1  -  ac)  accounts  for  reflection  fro*  the  cloud  top. 

The  flux  absorbed  in  a  layer  in  a  cloudy  sky  will,  in  general, 

be  -  SA  -  Sj  ,  in  a  fashion  siailar  to  Eq.  (2.131)  for  clear  sky. 
2 

If  there  is  a  cloud  top  anywhere  within  a  layer,  however,  the  flux  ab¬ 
sorbed  by  that  layer  will  not  be  just  the  flux  difference  at  the  lev¬ 
els  above  and  below  the  layer,  since  there  will  ba  a  flux  reflected 

fr°®  the  cloud  therefore  lost.  Thus,  for  the  layer  between 

levels  i  and  j,  the  absorbed  radiation  is  given  by 


a 

c 


(2.136) 


where  the  last  tern  is  the  flux  reflected  from  the  cloud  top.  When  the 
sky  is  partly  cloudy,  the  total  flux  at  level  i  is  given  by  a  weighted 
average  of  the  clear  and  overcast  fluxes: 


sj  -  CL  sj"  +  (1  -  CL)SA' 


(2.137) 


That  part  of  the  flux  subject  to  absorption  which  is  actually  absorbed 
by  the  ground  is  given  by 


A  ’  A  * 

(1  -  a  )S,  =  SA 

R  *  R 

for  clear  sky,  and  by 


A" 

(1  - 
1  -  a  a 

c  8 


(2.138) 


(2.139) 
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for  completely  cloudy  (overcast)  sky,  where  the  factor  1/(1  -  a  a  ) 
again  accounts  for  multiple  reflections  between  the  ground  and  cloud 

base.  For  partly  cloudy  skies,  the  radiation  absorbed  by  the  ground 
Is  the  sun 


A  A"  a  • 

S*  *  CL  S*  +  (1  -  CL)SA 
8  8  8 


(2.140) 


The  total  solar  radiation  absorbed  by  the  ground  will  be  the  sum  of 
that  part  of  the  solar  radiation  subject  to  (atmospheric)  absorption 
that  is  absorbed  Instead  by  the  ground  and  that  part  subject  to  scat¬ 
tering  (atmospheric)  that  is  absorbed  by  the  ground.  Thus,  from  Eqs. 
(2.128)  and  (2.140),  we  have 


S 

g 


sA  +  s* 

g  g 


(2.141) 


2.  Long-Wave  Radiation 

The  calculation  of  the  long-wave  radiation,  like  that  of  the  short¬ 
wave  radiation,  is  based  on  an  empirical  transmission  function  depending 
primarily  upon  the  amount  of  water  vapor.  The  net  upward  lonR-wavc 
radiation  at  a  level  i  can  be  expressed  as  the  sum  of  three  terms 

Ri  "  RA  +  *B  +  Ci  (2.142) 

where  RA  is  the  radiative  flux  downward  from  the  atmosphere  above  the 
level  i,  and  Rfi  i3  the  flux  from  below.  The  term  C  was  intended  to 
be  a  correction  term  accounting  for  a  possible  large  temperature  dif¬ 
ference  between  the  level-4  air  temperature,  T  ,  and  the  ground  sur¬ 
face  temperature,  Tr.  However,  in  the  early  stages  of  evolution  of 
the  Mintz-Arakawa  program  the  two  temperatures  were  assumed  to  be 
equal,  and  both  were  designated  in  the  program  with  the  same  symbol. 

At  the  time  the  program  was  modified  to  calculate  the  two  separately, 
a  programming  error  was  made  whereby  the  terms  were  not  changed  con¬ 
sistently.  In  several  statements  the  ground  temperature,  T  ,  is  used 
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in  place  of  the  air  temperature  T^,  and  in  the  ground  temperature  cor¬ 
rection  term,  C^,  the  values  of  ground  temperatures  before  and  after 

the  heating  cycle  (T  ,  T  )  are  used  in  place  of  T,  and  T  . 

5  8r  *4  gr 

In  this  Report  we  have  described  what  the  program  actually  does, 

rather  than  what  was  Intended.  Those  equations  in  which  T  was  used 

g 

in  place  of  T 4  are  indicated  throughout  Subsections  G.2  and  G.3  by  the 
symbol  In  future  work,  the  program  will  be  corrected  and  the  effects 
of  this  error  will  be  investigated. 

The  term  in  Eq.  (2.142)  is  thus  now  apparently  a  "correction" 
involving  the  change  in  the  ground  temperature  during  the  heating  time 
interval.  This  term  depends  upon  all  the  various  heat-exchange  mecha¬ 
nisms  in  the  program,  including  the  other  terms  involving  long-wave 
radiation.  Therefore  RA  +  is  calculated  first  and  the  C±  term  is 
left  until  later  (see  Subsection  G.3).  A  schematic  overview  of  the 
long-wave  radiation  balance  is  given  in  Fig.  2.5. 

The  fluxes  at  level  i  are  given  by  the  expressions 

'*  '  oT!  VA  (2.143) 


"b  *  (°Tg  ‘  (2.144). 

where  a  is  here  the  Stefan-Bolezman  constant,  and  the  empirical  trans¬ 
mission  functions  are  given  by 

tA  ’  t(u«  "  ui>  (2.145) 

_  1  +  t(Uj) 

TB  "  T  (2.146) 


with 


* 

T(U  ) 


•i/( 


1  +  1.75u 


*0.416 j 


(2.147) 
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Fig.  2.5  —  Long-wave  radiation  in  a  clear  atmosphere.  See  also 
Fig.  2.3. 
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as  found  by  Katayama  for  the  Callendar  water-vapor  transmission  func¬ 
tion.  Here  u  is  the  effective  vapor  content  defined  in  Subsection  F.7. 
For  a  clear  sky,  if  we  define  e  ,  we  have  at  the  three  levels 

o=0  (i  ■  0),  o  ■  1/2  (i  *  2),  and  o  =  1  (i  ■  4),  where  radiation  is 
determined  by: 


4  *  *  4  A  ^  T 

RJ  •  °V<“.  -  u0>  +  (0Tg  -  "o’  -  2  - 


(2.148)- 


A  *  *  A  A  ^  +  T^up^ 

R2  ■  <’V(u-.  -  u2>  +  (oI8  -  °T2>  2  ~ 


(2.149)- 


4  * 

R!  =  oT  t (u  ) 
4  g  » 


(2.150)4 


Here  the  primes  indicate  a  clear  sky.  To  account  for  the  abeorption 
by  C02,  which  is  not  included  in  the  above  expressions,  the  model  in¬ 
corporates  a  number  of  empirical  modifications  [due  to  Katayama  (1969)] 
of  the  long-wave  fluxes.  We  thus  redefine  the  clear-sky  fluxes  given 
above  as 


0. 820Rq 

(2.151) 

0. 736R2 

(2.152) 

4  L  *  1 

oTg  [°-6Vt<uJ  -  0.1  J 

(2.153) 

which  are  the  clear-sky  expressions  used  in  the  program.  The  expression 
for  is  similar  to  Brunt's  formula. 

Clouds  are  treated  as  opaque  black  bodies,  and  the  cloud  cover  may 
consist  of  any  of  the  model's  three  cloud  types.  Including  empirical 
corrections,  one  uses  the  following  expressions  for  the  radiation  in 
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completely  overcast  skies.  For  cloud  type  1  (top  at  level  1,  bottom 
at  level  3) 


R" 

R0 


0.820 


*  4  4  1  +  T<UJ  "  u?> 

u0> +  <0I1  -  oT0> - i — - 


(2.154) 


R" 

R2 


-  0 


(2.155) 


*4  -  0.85(oT^  -  oT*)[l  +  3r(u*)]y4 


(2. 156)*- 


where  the  double  primes  indicate  an  overcast  sky  and  R'^  =  R^  +  R^.  For 
cloud  type  2  (top  of  cloud  at  level  2,  bottom  at  level  3), 


,  ,  *  * 

4  *  *  4  ,  1  +  t(u  -  u,) 

Rq  -  0.820[oT;t(u<b  -  u0)  +  (otJ  -  otJ)  - ^ - L. 


(2.157) 


R^  -  [0.736oT2t(u*  -  u*)]/2" 


(2.158) 


-  same  as  for  cloud  1  (Eq.  (2.156)] 


For  cloud  type  3  vtop  and  bottom  at  level  3) : 


•  0*820  I  oTqT(u*  -  u*)  +  (oTj  -  „T“) 


4.  1  +  T<u0 


* 

u3> 


(2.159) 


RJ  -  0.736  [oT^u*  -  u*>  +  (0T3  -  oT*) 


.  *  * 

1  +  t(uq  -  u3) 


(2.160) 


RJ,'  ■  same  as  for  cloud  type  1  [Eq.  (2.156)] 


This  R^  is  divided  by  2  because  the  cloud  top  is  assumed  to  be  an 
irregular  surface  lying  half-above,  half-below  level  2. 
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If  we  now  define  as  the  net  upward  long-wave  radiation  for  partly 
cloudy  skies  prior  to  the  ground -temperature  correction,  R'  and  R" 
combine  to  give 


5,  -  (1  -  CURJ  +  (CL)R”  (2.l61) 

where  CL  is  the  fractional  cloudiness  (see  Subsection  F.6). 

Finally,  after  the  ground  temperature  has  been  determined  using 
Ri  and  the  calculated  short-wave  radiation  (among  other  quantities,  as 
described  in  Subsection  G.3  below),  the  long-wave  radiation  is  calculated 

in  its  complete  form  by  applying  the  correction  (C)  given  at  level  4 
by 

C4  “  4oTg(Tgr  "  V  (2. 162)*- 

3  L 

where  *°Tg(Tgr  -  Tg)  is  an  approximation  to  o(Tgf  -  Tg) .  The  complete 

long-wave  flux  at  level  4  is  thus  given,  according  to  Eq.  (2.96),  by 

R4  “  R4  +  C4  "  (1  "  CL)Ri  +  ^CL)^  +  4oT^(T  -  T  )  (2.163K 

o  o  *■  o 

At  levels  2  and  0  the  complete  long-wave  flux  is  similarly  given  by 


r2  -  R2  +  c2  "  R2  +  0.8(1  -  CL)C4t(u*)  (2.164) 

R0  *  R0  +  C0  ‘  *0  +  °-8^  -  CL>y(uo>  (2.165) 

where  R  is  given  by  Eq.  (2.161)  and  by  (2.162),  and  where  the  coef¬ 
ficient  0.8  is  the  correction  factor  for  C02  absorption.  These  are  the 
long-wave  radiation  fluxes  calculated  in  the  program  as  the  net  trans¬ 
fers  at  the  levels  4,  2,  and  0,  and  are  used  in  the  preparation  of  the 


i 
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long-wave  radiative  budgets  for  the  layers  0  to  2  and  2  to  4  as  well  as 
for  the  surface  (level-4)  radiation  budget  in  the  output  programs  (see 
Chapter  IV),  The  various  components  of  these  long-wave  fluxes  are  sum¬ 
marized  in  Fig.  2.6. 

3.  Heat  Balance  at  the  Ground 

The  ground  temperature,  T _ ,  as  corrected  for  surface  radiation 

8* 

and  as  used  to  find  the  evaporation,  is  itself  obtained  from  the  heat 
balance  at  the  ground.  The  treatment  of  the  heating  of  the  ground  de¬ 
pends  first  of  all  upon  the  character  of  the  ground  or  underlying 
surface. 

If  the  surface  is  ice-free  ocean,  it  is  considered  to  be  an  in¬ 
finite  heat  reservoir  whose  surface  temperature ,  T  ,  is  a  specified 

g 

function  of  position  and  does  not  change  during  the  heating  time 

Interval  (5At).  The  new  ground  temperature,  T  ,  is  set  equal  to  the 

gr 

old  T  . 

8 

Where  the  surface  is  bare  land,  snow-covered  land,  or  ice-covered 
land,  the  ground  is  considered  to  be  a  perfect  insulator  with  zero 
heat  capacity.  For  these  types  of  ground,  the  total  flux  of  heat 
across  the  air/ground  interface  must  be  zero,  according  to 

R4  +  r  +  He  -  Sg  -  0  (2.166) 


where  R^  is  the  long-wave  radiation  emitted  from  the  surface,  T  is  the 

sensible  heat  flux  from  the  surface,  H^.  is  the  flux  of  latent  heat  due 

to  evaporation  from  the  surface,  and  S  is  the  solar  radiation  absorbed 

fi 

by  the  ground. 

For  ice-covered  ocean,  the  surface  heat  balance  is  modified  to  in¬ 
clude  conduction  of  heat  through  the  ice,  B,  in  which  case  Eq.  (2.166) 
is  changed  to  read 


R,  +  r  +  H  -  S  -  B  «  B(T  -  T  ) 
4  Eg  o  gr 


(2.167) 
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where  Tq  equals  the  freezing  point  of  seawater  (273.1  deg  K) .  Equa¬ 
tion  (2.167)  is  applicable  to  the  land,  snow—  and  ice-covered  land 
surfaces  too,  if  we  define  B  •  0  for  these  locations;  for  sea  ice  the 
conduction  coefficient  B  is  equal  to  1.44  ly  day"1  deg"1,  found  from  an 
assumed  thermal  conductivity  of  0.005  ly  cm  sec"1  deg"1  and  an  ice 
thickness  of  300  cm.  Note  that,  except  for  the  solar  radiation,  these 
heating  terms  depend  upon  the  as-yet-undetermined  new  value  of  the 
ground  temperature,  T  ,  as  well  as  upon  the  old  value,  T  ,  upon  the 
temperature  of  the  air,  T^,  or  upon  the  freezing  point  of  sea  water, 

T  . 
o 

The  heating  terms  are  given  by 


R4  "  \  +  o(Tgr  '  Tg}  (2 . 168)*- 

mm 

where  R  is  the  long-wave  radiation  without  the  ground-temperature  cor¬ 
rection  as  given  by  Eq,  (2.161)  and  o(T  -  T^)  is  the  "correction" 

gr  g 

term.  (See,  however,  Subsection  G.2.)  The  sensible  (turbulent)  heat 
flux,  T ,  is  given  by 


r  ■  cr<V  -  V 


(2.169) 


where 


p.c  CJ 
A  p  D 


(2.170) 


where  W  is  the  surface  wind  speed,  as  corrected  for  gustiness  in  Eq. 
(2.78),  The  latent  heat  flux  is  given  by 


HE  "  LE 


c  — 
r  c 


GW 


dq  (T  ) 
(T  )  +  --■*  E 

i  g  dT 


(T  -  T  ) 

gr  g 


-  q> 


(2.171) 
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where  Eqa.  (2.108)  and  (2.109)  have  been  used  to  evaluate  the  evaporation 
Substituting  Eqs .  (2.168),  (2.169),  and  (2.171)  for  R  r, 
and  H£  into  the  heat-balance  equation,  (2.167),  and  approximating 
.4  4  3 

°  Tgr  Tg^  by  ^aTg^Tgr  -  Tg^ •  we  can  80^ve  for  the  unknown  ground  tem¬ 
perature  Tgr.  Thus,  we  have 


cr 

L  1 

T.  +  — 
t  4  c 
i _ 2_ 

q4  +  GW 

'dq  (T  ) 

— Jf- *-  T  -  q  (T  ) 
dT  8  sv  g' 

D+  Sg  ■  *4  +  4oTg  +  BT„ 

cr 

'  L  dW  1 

1  +  c  “dr*-™ 

P 

+  4oT3  +  B 
g 

(2.172)+- 


Having  found  Tgr,  we  can  complete  the  calculation  of  the  individual 

radiation  and  heating  terms  R4  (and  R^  RQ  as  in  Subsection  G.2),  r  and 

HE  from  Eq8,  <2-167>  to  (2.171),  and  the  surface  evaporation,  E,  from  Eq 

(2.108).  The  equations  are  applicable  to  an  ocean  surface  as  well  as  to 

land,  ice,  and  snow:  for  oceans,  Tgr  -  T  some  of  the  terms  will  be 

zero,  and  there  will  be  no  correction  terms  for  the  long-wave  radiation; 

for  ice  and  snow,  if  the  calculated  value  of  T  is  greater  than  T 

(m  273.1  deg  K)  it  is  set  equal  to  T  . 

o 


4.  Heat  Budget  of  the  Atmosphere 

The  heat  balance  is  maintained  at  the  ground  through  the  calcu¬ 
lated  ground  temperature  (see  previous  section) ,  and  at  the  levels  3 
and  1  by  means  of  the  diabatic  heating  terms  on  the  right-hand  sides 
of  Eqs.  (2.31)  and  (2.32).  After  the  temperature  changes  due  to  con¬ 
vective  adjustment  (see  Subsection  F.l),  no  further  change  is  made 
until  the  end  of  all  the  radiation-  and  moisture-balance  calculations. 

Then  the  change  in  temperature  over  the  interval  5At  at  levels  3  and 
1  is  given  by 


H3  ’  5At»3 

-  (A3  +  R4  -  R2  +  r)(2gArc  )5At  +  (AT  )  -I-  (AT,)  +(AT„) 

CM  3  CP  3  LS 


(2.173) 
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-  5AtH 

"  (A1  +  R2  "  R0)(2g/Trcp )5At  +  <AV  +  (AT  >  (2.174 

Here  A1  and  A3  are  the  net  absorption  of  solar  radiation  at  the  levels 
1  and  3  (see  Subsection  G.l),  R4  -  R2  and  R2  -  rq  are  the  iong-vave  ra¬ 
diation  absorbed  in  the  layers  4-2  and  2-0  (see  Subsections  G.2  and  G.3), 
and  r  is  the  sensible  heat  flux  (see  Subsection  G.3).  The  (AT)  terms 
are  the  latent  heat  released  during  large-scale  condensation  (LS)  [Eq. 
(2.47)],  middle-level  convection  (CM)  [Eqs.  (2.73)  and  (2.74)],  and 
penetrating  convection  (CP)  [Eqs.  (2.101)  and  (2.102)]  (see  Subsec¬ 
tions  F. 2  and  F.3).  The  factor  5At  is  the  time  interval  between  heat¬ 
ing  calculations,  and  together  with  the  factor  2g/irc  converts  the  heat¬ 
ing  rate  to  the  layers'  temperature  change. 

There  is  some  smoothing  of  the  heating  as  given  by  Eqs.  (2.173)  and 

(2.174)  in  both  the  vertical  and  horizontal  directions  before  the  tem¬ 
peratures  T^  and  T^  are  redefined  at  the  end  of  the  time  interval.  The 
average  heating,  H  -  1/2^  +  H3) ,  is  first  weighted  according  to  the 
area  of  the  grid  cell  surrounding  the  tt  point,  and  is  then  subjected  to 
a  9-point  areal  smoothing  with  the  central  heating  value  weighted  by  1/4, 
the  four  values  to  the  north,  south,  east,  and  west  each  weighted  by  1/8, 
and  the  four  values  to  the  northeast,  northwest,  southeast,  and  southwest 
each  weighted^by  1/16.  If  we  denote  the  result  of  this  smoothing  opera¬ 
tion  on  H  by  H  ,  the  final  temperatures,  after  correction  for  diabatic 
heating  at  levels  1  and  3,  are  determined  from 


(2.175) 


(2.176) 


where  Tj  and  T^  are  the  temperatures  at  levels  1  -md  3  before  the  cor 
rection  for  diabatic  heating. 
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III.  MODEL  DESCRIPTION  —  NUMERICS 

Equations  (2.27)  to  (2.33)  and  Eq.  (2.35)  form  a  set  of  eight 

prognostic  equations  for  the  eight  dependent  variables  (u  ,  v, ,  u 

1  «L  3* 

v3»  T1»  T3,  it,  and  q3).  The  time-extrapolation  method  and  the  hori¬ 
zontal  finite-difference  schemes  used  to  solve  these  equations  were 
developed  by  Professor  Arakawa  at  UCLA  and  are  discussed  in  the  fol¬ 
lowing  sections.  For  convenience,  Eqs.  (2.27)  to  (2.33)  and  Eq.  (2.35) 
have  been  restated  in  Tables  3.1  to  3.4  and  Table  3.6,  where  the  sub¬ 
sections  describing  the  numerical  treatment  of  each  term  are  indicated, 
along  with  the  location  in  the  FORTRAN  program  where  each  term  is  eval¬ 
uated.  The  diagnostic  equation  for  the  vertical  velocity  [Eq.  (2.34)) 
is  given  a  similar  treatment  in  Table  3.5.  In  the  present  chapter, 
particular  attention  has  been  given  to  the  preparation  of  a  systematic 
statement  of  the  precise  finite-difference  approximations  actually  used 
in  the  programmed  numerical  solution  of  the  model.  The  smoothing  pro¬ 
cedures,  provisions  for  global  mass  conservation,  and  the  various  pa¬ 
rameters  and  constants  used  in  the  model  are  also  summwized  here. 

A.  TIME  FINITE  DIFFERENCES 

1_.  The  General  Scheme  of  Time  Extrapolation 

From  the  equations  in  Tables  3.1  to  3.4  and  Table  3.6,  we  can  ob¬ 
tain  expressions  for  the  tendencies  of  the  dependent  variables  (\p  -  u  , 
vi»  •••)  at  the  point  ij  in  the  general  form 


0,  +  S, 


(3.1) 


while  the  pressure-tendency  equation  is  written  in  the  form 


Table  3.1 
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DESCRIPTION  OF  THE  MERIDIONAL  (v)  MOMENTUM  EQUATIONS 
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The  expression  represents  the  friction  terms  in  the  momentum  equa¬ 
tions,  the  diabatic  heating  term  in  the  energy  equation,  or  the  mois¬ 
ture  source  term  in  the  moisture  equation.  These  terms  will  be  re¬ 
ferred  to  collectively  as  the  "source  terms."  All  the  other  terms  are 
Included  in  the  expression  D^.  Both  and  are  complicated  finite- 
difference  expressions  involving  the  independent  variables  and  the  de¬ 
pendent  variables  at  ij  and  neighboring  points. 

In  the  time-extrapolation  method  used  in  this  model,  the  source 
terms  are  evaluated  every  fifth  time  step.  The  remaining  terms  (D^) 
are  evaluated  each  time  step  by  means  of  a  sequence  of  uncentered  and 
centered  horizontal  differences.  Thus,  the  time  extrapolation  pro¬ 
ceeds  in  a  repeated  sequence  of  five  individual  time  steps  of  At  each. 
The  first  four  time  steps  consist  of  two  substages  each,  and  the  fifth 
time  step  consists  of  three  substages.  The  first  substage,  which  is 
identical  in  all  five  time  steps,  provides  a  preliminary  estimate  of 
the  dependent  variables  for  time  t  +  n  by  evaluating  using  values 
of  the  dependent  variables  at  time  t  +  (n  -  1) .  The  second  substage 
obtains  a  final  estimate  of  the  dependent  variables  using  the  prelim¬ 
inary  estimates  to  evaluate  with  the  horizontal-difference  scheme 
appropriate  to  the  position  in  the  five-step  sequence.  The  special 
third  substage  in  the  fifth  time  step  consists  of  evaluating  the  source 
terms  using  values  of  the  dependent  variables  obtained  from  the  second 
substage.  An  outline  of  this  procedure  is  shown  in  Fig.  3.1,  and  each 
substage  of  the  time  step  is  described  below. 


2.  Preliminary  Estimate  of  the  Dependent  Variables  (All  Time  Steps) 

The  preliminary  estimate  (identified  in  the  FORTRAN  code  by  the 

flag  MRCH-1)  is  obtained  using  a  forward  time  step  and  evaluating  D, 

V 

by  a  centered  horizontal  difference.  However,  the  horizontal  and  ver¬ 
tical  advection  terms  and  the  Coriolis  force  term  of  D  are  advanced 

<1* 

only  a  half  time  step,  while  the  remaining  terms  are  advanced  a  full 
time  step  (At).  Thus,  from  Eq.  (3.1)  for  the  momentum,  energy,  and 
moisture  equations  we  have,  upon  omitting  the  source  terms, 


k 
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(ft)Jj1  -  (n*)Jj  +  j-  \(*T>  “T. 

+  AtR^(irT,  uT,  . .  .)±j  (3.3) 

where  represerts  the  advection  terns  in  D^,  R^  -  -  A^  represents 

the  remaining  terms  of  D^,  the  superscript  t  refers  to  values  at  time 
t,  and  the  caret  Is  used  to  Indicate  the  preliminary  estimate  of  a 
quantity.  Similarly,  the  pressure-tendency  equation  (3.2)  becomes 

(n)ij1  -  00^  +  AtD7T(irT,  u\  ...)  (3.4) 

The  first  estimate  of  the  dependent  variables  is  therefore  given 
by  Eqs.  (3.3)  and  (3.4)  as 


AT+1 


(3.5) 


which  serves  to  remove  the  II  weighting  of  the  variables.  As  noted  pre¬ 
viously,  this  procedure  is  used  as  a  preliminary  estimate  in  each  time 
step  of  the  numerical  integration. 

3.  Final  Estimate  of  the  Dependent  Variables  (Time  Steps  1  to  4) 

Using  the  preliminary  estimates  given  above,  the  final  estimates 
of  the  dependent  variables  at  the  nth  time  step  of  the  sequence  n  -  1, 
2,  3,  4  become 


owlt"  -  <n*)It(n"1)  +  Aty$.  U, 


ij 


ij 


(3.6) 


nT+n  TTT+(n-l).  __  ,A  a  . 
niJ  "  \j  +  At%^7T»  u»  •••^ij 


(3.7) 


from  which  we  calculate 


L 
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<P 


r+n 

ij 


(n^) 


T+tl 

LL 


n 


T+n 

ij 


(3.8) 


When  n  -  1  an  up-right  uncentered  horizontal  space  difference  is  used 
(identified  by  the  flag  MRCH-3) ;  when  n  -  2,  a  down-left  uncentered 
horizontal  space  difference  is  used  (identified  by  the  flag  MRCH-4) , 
and  when  n  -  3  or  4,  a  centered  horizontal  space  difference  is  used 

(identified  by  the  flag  MRCH-2) .  The  case  for  n  -  5  is  considered 
below. 


— — — -al  Estimate  of  the  Dependent  Variables  (Time  Step  5) 

The  first  two  substages  of  the  fifth  time  step  (n  -  5)  are  per¬ 
formed  as  described  above  by  Eqs.  (3.6)  to  (3.8).  If  „e  represent 
the  variables^  the  end  of  the  second  substage  of  the  fifth  time  step 
by  a  tilde,  (  ),  the  final  estimates  become 


t+5 


4) 


t+5 

ij 


G)l]5  +  5At 


s.,4 


t+5 


...) 


t+5 


i 1 


‘ij 


(3.9) 


The  final  estimate  at  every  fifth  time  step  thus  introduces  the  source 
terms  (as  evaluated  in  subroutines  COMP  3  and  COMP  4) ,  and  weights  them 
for  the  full  5At  time  interval.  Because  the  continuity  (or  pressure- 
tendency)  equation  (3.2)  is  source  free,  the  value  of  nT+5  is  given 
directly  by  the  final  estimate  [Eq.  (3.7)]  for  n  -  * 

Upon  the  completion  of  this  time  step,  the  sequence  of  five  steps 
begins  again.  The  flow  of  this  time-integration  procedure  is  controlled 
by  subroutine  STEP  (steps  1850  to  2280).  The  horizontal  finite-difference 
expressions  used  in  the  determination  of  the  terms  S  ,  D  ,  and  R  are 
given  below.  ^  ^  ^ 
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B .  HORIZONTAL  FINITE  DIFFERENCES 


1.  The  Horizontal  Finite-Difference  Grid 

The  earth's  surface  is  represented  in  the  numerical  calculations 
by  a  rectangular  grid  of  points  extending  from  pole  to  pole,  an  arbi¬ 
trary  point  of  which  is  designated  ij  and  identified  by  (J,I)  in  the 
code.1  The  180th  meridian  is  represented  by  the  set  of  points  (l,j), 
the  longitude  175W  by  the  points  (2,j),  etc.,  the  South  Pole  by  (i,l), 
and  the  North  Pole  by  (i,J);  the  equator  is  not  a  member  of  this  grid, 
but  corresponds  to  the  value  j  ■  23^.  This  set  of  primary  grid  points 
can  be  regarded  as  the  centers  cf  cne  network  of  rectangular  cells 
outlined  by  dashed  lines  in  Fig.  (3.2).  The  velocity  variables  u  and 

v  are  carried  at  the  comers  of  the  cells  (designated  by  +  in  the  fig- 

* 

ure),  the  west/east  mass  flux  u  at  the  midpoints  of  the  vertical 
sides  (designated  >),  and  the  south/north  mass  flux  v  at  the  midpoint 
of  the  horizontal  sides  (designated  a)  .  All  other  quantities  are  car¬ 
ried  at  the  midpoint  of  the  cells  (designated  o) .  The  values  of  u 

and  v  at  the  lower  right-hand  corner  of  the  cell  (i,j)  are  denoted  by 

*  * 
u  .  and  v  ,  the  value  of  u  on  the  right-hand  side  of  the  cell  by  u  , 
*3  *3  *  * 

and  the  value  of  v  on  the  lower  side  of  the  cell  by  v^  .  In  the  re¬ 
mainder  of  the  text,  the  points  o,  +  ,  >,  and  a  will  be  referred  to  as 
"tt  points,"  "u , v  points,"  "u  points,"  and  "v  points,"  respectively. 

It  may  be  noted  that  the  poles  are  "it  points,"  while  the  points  at  the 
equator  are  "u,v  points." 

The  grid-point  separation  factors  m  and  n  represent  the  geograph¬ 
ical  distance  between  grid  points,  and  are  defined  by  Eqs.  (2.18)  and 
(2.19).  The  factors  m,n  and  the  area  (mn)  of  the  cells  surrounding 
the  tt  points  are  computed  in  subroutine  MAGFAC  (steps  14360  to  14850), 
where  the  following  quantities  are  defined: 


For  purposes  of  computational  efficiency,  the  notation  (J,I), 
listing  the  y- index  J  first,  is  used  in  the  FORTRAN  code  in  lieu  of 
thx®  more  conventional  (I,J)  notation.  When  reproducing  specific 
FORTRAN  statements  this  (J,I)  notation,  where  J  -  1,  2,  ...,  JM  and 

I  -  1,  2 . IM,  will  be  used.  Elsewhere,  the  notation  (i,j),  where 

i  *  1,  2,  ...,  I  and  J  ■  1,  2,  ...,  J,  will  be  used. 
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Fig.  3.2  —  The  horizontal  finite-difference  grid  with  zonal  index  i 
and  meridional  index  j.  Here  the  open  circles  (o)  repre¬ 
sent  grid  points  of  the  primary  or  tt  grid  at  which  tt  ,  T, 
q,  and  <J>  are  carried,  while  the  plus  (+)  signs  represent 
points  at  which  u  and  v  are  carried  (the  u,v  grid).  The 
carets  (a  and  >)  denote  points  of  supplementary  grids  at 
which  the  northward  and  eastward  mass  fluxes  v*  and  u* 
are  determined. 
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LAT(j)  =  «Pj  =  A<p(j  -  -  +  1)  1  <  j  s  J 

DXP(j)  =  aAX  cos  n  j  s  j 

DXUCj)  =  aAX  j  (cos  ^  +  cos  tp^) 

-  [DXP(J)  +  DXP(J-l)]  1<  j  £J 


(3.10) 


(3.11) 


(3.12) 


DYU(j)  =  a(^  -  )  j  s  2  (3.13) 

DYU(l)  =  DYU(2) 


DYP(j)  -  a  \  (9J+1  -  <Pj_1)  (3.14) 

-  \  [DYU(j+l)  +  DYU(j))  2  <  j  i  J 

DYP(l)  =  DYU (2) 

DYP(J)  =  DYU(J) 


DXYP(j)  =  DYP(j)  l2Mi±lL^.V  JJii  2  <  ]  S  J  (3.15) 

DXYP(l)  -  DXU ( 2 )  -Yy(-1) 

DXYP(J)  =  i  DXU  (J)  SXZiil 


These  quantities  are  Illustrated  in  Figs.  3.3  to  3.5.  From  Fig. 

* 

3.2  we  see  that  tt  and  u  are  carried  at  the  same  latitudes,  whereas  u,  v, 
* 

v  are  carried  at  intermediate  latitudes.  Thus,  the  factors  m,n  cen- 
* 

tered  at  n  or  u  points  are  given  by  DXP  and  DYP,  whereas  those  centered 

* 

at  u,  v,  or  v  points  are  given  by  DXU  and  DYU.  In  this  scheme  the 
pressure  (tt)  is  thus  given  at  the  poles  but  not  at  the  equator,  whereas 
the  velocity  (u,v)  is  given  at  the  equator  but  not  at  the  poles. 
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Fig.  3.3  —  The  map  metric  n,  the  meridional  distance  between 

grid  points.  At  latitude  9j  ,  n  =  DYP  is  the  north/ 
south  distance  between  points  of  the  u,v  grid  (and 
between  points  of  the  v*  grid)  ,  while  n  »  DYU  gives 
the  corresponding  distance  between  points  of  the 
it  grid  (and  between  points  of  the  u*  grid). 


DXP(j-l) 


Fig.  3.4  —  The  map  metric  m,  the  zonal  distance  between  grid 
points.  At  latitude  cpj ,  m  -  DXP  is  the  east/west 
distance  between  points  of  the  it  grid  (and  between 
points  of  the  u*  grid),  while  m  *  DXU  gives  the 
corresponding  distance  between  points  of  the 
u,v  grid  (and  between  points  of  the  v*  grid). 
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(c) 


Fig.  3.5  The  area  ran  =  DXYP  surrounding  a  point  of  the  71  grid  (a). 

At  the  north  and  south  poles  (j=J  and  j=l)  this  area  is 
identified  as  the  shaded  regions  shown  in  (b)  and  (c) , 
respectively. 


2.  Finite-Difference  Notation 


The  tJ.I]  indexing  used  in  the  FORTRAN  code  is  identical  for  each 
of  the  four  grid  networks  described  above.  That  is,  ir^,  u  and  v 

UJI*  and  vji  a11  have  the  same  index,  (J,I),  but  each  of  these  is  car¬ 
ried  and  computed  at  different  points  in  the  horizontal  finite-difference 
grid.  It  is  convenient,  therefore,  to  define  ir-,  u,v-,  u*-,  and  v*- 
centered  notations  to  be  used  in  formulating  the  finite-difference  ex¬ 
pressions.  These  notations  are  illustrated  in  Figs.  3.6  to  3.9.  Here 
the  index  used  for  the  finite-difference  expressions  is  given  below 
each  point,  and  the  [J,I]  index  useci  in  the  FORTRAN  code  is  given  above 
each  point.  These  figures  facilitate  the  transformation  of  the  finite- 
difference  expressions  given  below  into  the  equivalent  FORTRAN  state¬ 
ments  found  in  the  program  itself  (see  Chapter  VII) . 


It  is  also  convenient  to  introduce  a  notation  for  the  grid-point 
separation  factors  (the  horizontal  distances  between  grid  points  on  the 
surface  of  the  earth).  For  each  of  the  ,-,  u,v-,  u*-,  and  v*-centered 
notations  (see  Figs.  3.6  to  3.9),  m^,  v  and  will  denote  the  dis¬ 

tance  from  -20  to  00,  from  -10  to  10,  and  from  00  to  02,  respectively. 
Similarly,  n_^,  nQ,  and  n^  will  denote  the  distance  from  0-2  to  00, 
from  0-1  to  01,  and  from  00  to  02,  respectively.  The  numerical  values 
°f  V  Jo*  6tC*  are  Slven  in  Eqs.  (3.11)  to  (3.15).  For  example,  when 
"  U  "centered  notation  is  used,  mQ  and  m+1  are  given  by  DXP(j),  n 
by  DYP ( j ) ,  n_x  by  DYU ( j )  ,  and  ^  by  DYU(J+1);  whereas  when  u,v_  or  v*_° 

centered  notation  is  used,  mQ  and  m±1  are  given  by  DXU(j),  «  by  DYU(j) , 
n_l  by  DYP ( j-1) ,  and  n  by  DYP(j). 


In  the  following  subsections,  variables  at  the  two  vertical  levels 
will  be  indicated  by  the  subscript  l,  with  £  =  1  denoting  the  (upper) 
level  ox  and  t  -  3  denoting  the  (lower)  level  ay  In  the  FORTRAN  code 
the  index  L  is  used  to  indicate  the  levels,  with  L  =  1  denoting  the  lev¬ 
el  and  L  *  2  denoting  the  level  c^. 


— — Preparation  for  Time  Extrapolation 

At  the  beginning  of  each  time  step  the  dependent  variables  are 
transformed  into  a  set  of  pressure-area-weighted  variables.  This  trans 
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Fig.  3.6  —  The  schematic  finite-difference  grid  in  ir-centered  notation.  The 

symbols  above  each  point  are  the  FORTRAN  J,I  index,  and  those  below 
each  point  are  the  finite-difference  subscript  notation  relative  to 
the  origin  00  or  relative  to  the  poles  (p) .  The  open  circles  (o) 
are  points  of  the  tt  grid,  the  plus  signs  (+)  are  points  of  the  u,v 
grid,  and  the  carets  (a  and  >)  are  points  of  the  v*  and  u*  grids, 
respectively. 
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Fig.  3.9  —  The  schematic  finite-difference  grid  in  v*-centered  notation. 
See  Fig.  3.6  for  symbol  identification. 


-80- 


formation  is  performed  at  the  beginning  of  subroutine  COMP  1  (steps 
2500  to  2680).  For  the  quantities  carried  at  tt  points  (tt,  H,  Ty  and  q3> 
the  transformation  is  straightforward,  and  is  given  by 


(JIT) 

(nq) 


n00  "  (mn) 00*00 

(3.16) 

£,00  “  (mn)001T00T£,00 

(3.17) 

3,00  "  (mn)00*00q3,00 

(3.18) 

where  (mn)00  is  the  ir-centered  area  DXYP(J)  (see  Fig.  3.5). 

For  the  transformation  of  the  velocity  components  we  similarly 
write  (in  u,v-centered  notation) 


^nu^J,,00  "  n00uJL,00 


(nv)£,oo  "  noov£,oo 


(3.19) 


where  the  u,v-centered  area-weighted  II  is  defined  in  u,v~centered  nota 
tion  as 

noo  *  \  [(mn) -n^-ii +  (mn)  11*11 +  (mn)-i-ilT-i-i +  (nn)i-ri-i] 


for  2  <  j  ^  J  -  1 


(3.20) 


with  the  polar  expressions 


O.p+l 


I  [‘-’-l.rM’-l.pM  +  (mn)l, p+2’1, p+2]  +  (3-21) 


"o,p-l  ■  \  [<"">-l,p-2’-l,p-2  +  (m)l,p-2”l,p-2]  +  ‘-'i.j'l.J 


(3.22) 
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where  p  denotes  the  South  or  North  Pole,  and  where 


IT 


i,l 


and 


TT 


(3.23) 


(3.24) 


The  quantities  given  by  Eqs.  (3.20)  to  (3.24)  are  illustrated  in  Fig. 
3.10.  Note  that  since  the  poles  are  mapped  into  I  grid  points,  Eqs. 
(3.23)  and  (3.24)  provide  unique  values  of  tt  for  all  I  grid  points  of 
the  South  and  North  Poles.  The  other  dependent  variables  carried  at 
the  poles  (T^,  T^,  and  q^)  and  quantities  computed  at  the  poles,  such 
as  the  mass  convergence  discussed  in  the  next  section,  are  similarly 
averaged.  The  polar  adjustment  of  it,  T^  T3>  and  q3  is  performed  in 
subroutine  COMP  2  (steps  6410  to  6560). 

C.  SOLUTION  OF  THE  DIFFERENCE  EQUATIONS 


1.  The  Mass  Flux 

The  west/east  and  south/north  mass  fluxes  are  defined  by  Eqs.  (2.25) 
and  (2.26).  These  quantities  require  three  finite-difference  approxi¬ 
mations  corresponding  to  the  three  space-difference  schemes  (the  up¬ 
right,  down-left,  and  centered)  used  during  the  cycle  of  the  time  in- 

* 

tegration.  Furthermore,  u  4  given  a  longitudinal  smoothing  to  avoid 
computational  Instability  resulting  from  the  decrease  in  the  longitu¬ 
dinal  spacing  as  the  poles  are  approached.  The  mass-flux  parameters  are 
computed  in  subroutine  COMP  1  (steps  2710  to  2950)  and  the  longitudinal 

■k 

smoothing  of  u  is  performed  in  subroutine  AVRX(K) . 

* 

In  the  v  -centered  notation  (see  Fig.  3.9),  the  south/north 
flux  v  at  the  level  £  becomes 


mass 
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(b) 


g.  3.10  —  Illustration  of  the  area-pressure  weighting  function  Hu  centered 
3t  u.v  points.  At  non-polar  points,  11”  is  the  sum  of  the  four 
shaded  areas  shown  in  (a),  each  weighted  by  its  adjacent  value 
of  tt ;  at  polar  points,  Hu  is  given  by  the  sum  of  the  three  shaded 
areas  shown  in  (b)  weighted  by  the  indicated  values  of  tt. 
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n  (VlO  +  Vio>  (,01  +  Vl>  V 

0  2  - 5 - 


MRCH  -  1  or  2 


£,00 


m^v,,  ,  _ 
0  £,10 


(lToi  +  Vi> 


Ve.-io 


(’oi  +  "o-i> 


when  /  MRCH  -  3  \  (3.25) 


MRCH  -  4 


mm 

The  west/east  mass  flux  u  is  computed  in  three  stageB.  First, 

(nu)  at  the  level  £  is  computed  according  to 


(nu) 


£,00 


(  nlU£,01  +  n-lU£.0-l 

MRCH  -  1  or  2  1 

1  2 

<  n.u, 

\  1  £,01 

when  ^ 

MRCH  -  3  \ 

n  ,u,  .  , 

1  -1  £.0-1 

MRCH  -  4  I 

(3.26) 


where  u  -centered  notation  has  been  used  (see  Fig.  3.8),  Second,  the 
values  of  (nu)^0()  are  smoothed  in  subroutine  AVRX(K)  using  a  three- 
point  zonal  smoothing  routine  that  may  be  represented  by 


(nu)  £  ,00  =  Vnu)£,-10  +  (1  '  2V(nu)£,00  +  Vnu)£,10  (3,27) 

where  \Q  is  the  weighting  factor  of  the  smoothing  routine.  This  smooth¬ 
ing  procedure  is  described  further  in  Section  D  below.  After  this  cal¬ 
culation,  the  west/east  mass  flux  u  at  the  level  £  is  finally  computed 
from 


£,00 


_  N 

(nu">!,00 


('-10  +  V 


(3.28) 


where  the  superscript  NQ  denotes  the  smoothed  result  after  application 
of  the  subroutine  AVRX(K)  times  (see  Section  D) . 
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^  At  this  point  it  should  be  noted  that  u*  at  the  poles  (u*  and 
uij)  ^as  no  weaning.  However,  to  determine  the  advection  of  momentum 
in  the  polar  caps,  an  equivalent  u  at  the  poles  is  defined.  The  rou¬ 
tine  used  to  compute  this  equivalent  polar  u*  is  described  in  Subsec¬ 
tion  C.3  below. 


2.  Continuity  Equation 

The  prognostic  equation  (2.33)  for  the  pressure  tendency  and  the 
diagnostic  equation  (2.34)  for  the  vertical-velocity  term  may  be  re¬ 
written  in  terms  of  the  mass  convergence  at  levels  1  and  3.  Thus, 


an 

at 


s  - 


(3.29) 


(3.30) 


In  the  ir-centered  notation  (see  Fig.  3.6),  the  mass  convergence  at  all 
grid  points ,  except  the  poles ,  is  given  by 


2  *  J  s  J  “  1  (3.31) 

Only  the  south/north  mass  flux  (v*)  contributes  to  the  total  mass 
convergence  within  the  polar  cap.  The  total  mass  convergence  at  the 
South  and  North  Poles  is  therefore  given  by 


CONV.  , 

£.1 


E 


i-1 


* 

V£,i,pfl 


(3.32) 
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CONV 


=  y>  * 

■J  "  ft 


(3.33) 


while  the  mass  convergence  attributed  to  each  of  the  I  sectors  of  the 
polar  caps  is  given  by 


CONV 


i  V''  * 

’1’1 " 1  ft  v*.p+i 


(3.34) 


CONV 


a  ^  V''  * 

,1,J  *  ft 


(3.35) 


Thus,  Eqs .  (3.29)  and  (3.30)  may  be  written  in  the  computational 


( 


£)00  ■  -  T  (C0NV1.00  ♦  «"3.00> 


forms 


(3.36) 


5oo  ■  I  <CONV3,00  -  “'"l.oo1 


(3.37) 


for  an  arbitrary  point  outside  the  polar  cap, 


(£)M--i<coxvMi 


+  C0SV3,1>1) 


(3.38) 


Si,l  ■  2  (COm 


3.1,1  -  C0NV1,1.1> 


(3.39) 


at  the  South  Pole,  and 


(3.40) 


3i,J  "  2  (C0NV3,i,J  -  ^i.i.j) 


(3.41) 


at  the  North  Pole. 


I 
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3.  Horizontal  Advection  of  Momentum 

The  horizontal  advection  of  momentum  at  the  u,v-grid  point  i,j 
and  at  the  level  l  is  approximated  in  the  equations  of  motion  (2.27) 
to  (2.30)  by 


lr  (u*u)  +  fr  (v*u)j  w  f 
3x  9y  J  £  ,i ,j  •'r 


uU  •  Ndr 


(3.A2) 


and 


fr  (u*v)  +  |-  (v*v)]  *  / 

L3x  9y  J  £,i,  j  •'p 


vU  •  Ndr 


(3. A3) 


*  * 

where  U  is  a  vector  in  the  x,y  plane  with  u  and  v  as  its  x  and  y 
components,  and  N  is  the  outward  unit  vector  normal  to  the  contour  T 
of  the  rectangular  grid  defined  by  the  four  tt  points  surrounding  the 
u-grid  point  i,j  (see  Fig.  3.11). 

To  evaluate  the  integrals  in  Eqs.  (3.A?>  and  (3. A3)  the  contour 
T  is  divided  into  eight  segments.  Along  each  of  the  eight  segments, 
U  •  N  is  defined  (using  u,v-centered  notation)  as 


“lO  ■  !  •  i  Iu01  +  U21  +  u2-l  *  Vl1' 


~  llr*  *,11,*  *, 

°U  ’  6  -  2  U01  +  U21  +  6  '  2  v10  +  v12  * 
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Fig.  3.11  —  Schematic  representation  of  the  fluxes  U, V  and 
grid  cell  surrounding  a  point  of  the  u,v  grid 
by  00  in  u,v  notation;  see  Fig.  3.7). 


U,V  on  the 
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Wlth  these  definitions,  Eqs.  (3.42)  and  (3.43)  become 


[fe  <u*u)  +  (v‘u)]00  ■  1  [U10(u00  +  u20>  •  U-10(u-20  +  u00> 


+  V01(u00  +  “02 -1  ■  V0-l(u0-2  +  “00 '  +  U11<U00  +  “20' 


-  u-i.i<“.2-2  +  “(JO*  +  V-ll(u00  +  ',-22) 

-  Vl(u2-2  +  u00>] 

fe  (u*v>  +  I7  <v*v>]  00 ' 1  [U10<V00  +  V  -  U-10(v- 


(3.45) 


+  v  ) 
20  00' 


+  V01(v00  +  v02)  -  V0-l(v0-2  +  v00>  +  Vv00  +  v20) 


“  ''-l-l(v-2-2  +  v00>  +  ''-11<V00  +  v-22^  ”  ^l-l<v2-2  +  v00)]  <3,46) 


at  all  points  outside  the  polar  cap.  In  Eqs.  (3.44)  to  (3>46)  the  sub¬ 
script  Z  has  been  dropped,  and  It  should  be  understood  that  these  ex¬ 
pressions  for  the  horizontal  advection  are  valid  for  Z  »  1  and  3. 

The  momentum  advection  within  the  polar  cap  requires  special  treat¬ 
ment.  In  Fig.  3.11  it  can  be  seen  that  when  the  unit  square  represents 
a  north  polar  sector,  the  fluxes  V_^,  ^qi»  ant^  represent  advection 
across  the  pole.  Physically,  advection  can  occur  across  the  pole  only 
from  a  single  sector  to  that  sector  separated  by  180  deg  of  longitude. 
Thus,  transpolar  advection  is  not  calculated  and  V  and  U  are 

not  defined.  However,  the  fluxes  U_1Q  and  U1Q  represent  advection  be¬ 
tween  adjacent  sectors  within  the  polar  cap,  but  the  definitions  for 
these  fluxes  [Eq.  (3.44)]  break  down  since  u*  is  not  defined  at  the 
poles.  To  circumvent  this,  a  polar  u  is  determined  in  subroutine 
COMP  1  (steps  2790  to  3230)  so  that  the  near-polar  U  are  given  by 


±l,p-l 


1  /  *  .  * 

6  (U0,J  +  u±2 , J 


+  U0,p-2  + 


U-2 ,p-2  ) 


(3.47) 
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and  the  continuity  equation 


3t  ^O.p-l5  +  Ul,p-1  "  U-l,p-l  "  V0,p-2 


"  U-l,p-2  "  Vl,p-2  "  S0,p-1  “  0 


(3.48) 


is  satisfied  for  each  of  the  north  polar  sectors.  Here  u,v-centered 

•  u 

notation  has  been  used,  and  the  definition  of  Sn  is  given  in  the 

u  ,p— 1 

next  subsection. 

It  is  shown  by  Langlois  and  Kwok  (1969)  that  under  the  above  con¬ 
ditions  u  at  a  polar  grid  point  i,J  is  given  by 


UM  '  3  (*i  -  T&  *i) 


(3.49) 


where  is  given  by 


1 


i>2 


*'  *'  *' 
V3/2 ’  ^3  "  V3/2  +  V5/2 * 


i  -  2,  3,  . . . ,  I 


Vk+1 / 2 ’ 


(3.50) 


and 


Vi+l/2  "  vi+l/2,p-l  "  I  vi+l/2,p-l  (3‘51) 

In  Eqs.  (3.50)  an!  (3.51)  the  fractional  values  of  the  index  i  are  used 
* 

to  denote  the  v  -grid  points  to  the  right  of  the  u,v-grid  point  (i,p-l). 

Similar  expressions  can  be  derived  for  the  South  Pole. 

If  we  use  Eqs.  (3.49)  to  (3.51)  to  determine  the  values  of  u„  T  and 
*  0,J 

U+2  J  (3.47) ,  the  polar  horizontal  advection  of  momentum  in  u,v- 

centered  notation  becomes 
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[h  +  k  <V*U)]0,p+l  '  *  KpwS.p+l  +  “2.P+1' 

■  u-l,p+l(u-2,p+l  +  “o.pU*  +  v0,p+2(u0,p+l  +  U0,p+3) 

+  ^l,p+2(u0,p+l  +  U2,p+3)  +  ^-l,p+2(u0,p+l  +  U-2,p+3)] 

and 

[k  <"*''> + 1?  (v‘v)]0,p+1  ‘  ?  Kp+i^.p+i  +  v2>P+i> 

“  U-l,p+l(v-2,p+l  +  V0,p+1*  +  V0,p+2(v0,p+l  +  ^.p+S* 

+  Vp+2(v0,p+l  +  V2,p+3)  +  ^-l,p+2(v0,p+l  +  ^.p+S*] 


at  the  South  Pole,  and 

[k  (u‘u> +  k  (v*u)]0,p-i  ’  *  [”i.p-i(uo,p-i +  u2,p-i> 

■  u-l,p-l(u-2,p-l  +  u0,p-l)  ■  V0,p-2(u0,p-3  +  U0,p-1) 

‘  U-l,p-2(u-2,p-3  +  U0 ,p-l)  ~  Vl,p-2(u2,p-3  +  “o.p-l*] 


'  2  [Ul,p-l(v0,p-l  +  ^.p-l* 

+  V0,p-1)  “  V0,p-2(v0,p-3  +  V0,p-1) 
+  V0,p-1)  “  Vl,p-2(v2,p-3  +  'o.p-l*] 


(3.52) 


(3.53) 


(3.54) 


(3.55) 


at  the  North  Pole. 
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4.  Vertical  Advectlon  of  Momentum 

In  Subsection  C.2  the  vertical  velocity  parameter  S  Is  defined  at 
tr-grid  points  [Eqs.  (3.37),  (3.39),  and  (3.41)].  However,  for  use  in 
the  momentum  equations,  a  Su,  analogous  to  nu  [Eqs.  (3.20)  to  (3.24)] 
must  be  defined  at  u,v-grid  points.  Thus,  at  u,v  points  outside  the 
polar  cap  the  vertical  advectlon  term  in  u,v-centered  notation  is  given 
by 


(ul,00  *  u3,00)  *u  •  •  a  \  ,,  c,s 

2  S00  2,00  4(S-11  +  S11  +  Sl-1  S-l-l)  (3'56) 


and  at  the  poles  by 


(ul,0,p+l  +  U3.0,p+1)  iu 

2  0,p+l 


“2.0, pfl  [Rl.p«  +  *!.,«>  +‘i.l]  (3-57) 


and 


(U1,0,P-1  +  “3.0.P-13  JU 

2  0,p-l 


uo  n  «  i  Tt(S  i  „  o  +  S  o)  +  S  1  (3. 

2,0,p-l[4  -l,p-2  l,p-2  i.JJ 


58) 


where 


•  t  £  v 


(3.59) 


and 


i,J 


(3.60) 
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5.  Coriolis  Force 

To  evaluate  the  Coriolis  force  tern  In  the  momentum  equations, 
the  parameter  F  [Eq.  (2.24)]  and  the  Coriolis  parameter  f  «  20  sin  9 
are  the  first  obtained  at  the  7r-grld  points.  The  Coriolis  parameter 
Is  computed  In  subroutine  MAGFAC  (steps  14710  to  14750).  In  terms  of 
iT-centered  notation  it  is  defined  as 


f  -  Q  _ — 

00  “  2(mn) 


00 


|\cos  9 


2  +  cos  Vm-1 


-  (cos  cp0  +  cos  tP2)m1J 


(3.61) 


Equation  (3.61)  can  be  reduced  to 


cos  9_  -  cos  9 

fnn  ■  -20  - - - - 

00  92  -  9_2 


which  is  a  finite-difference  analog  of 


f  -  20  sin  9  -  -20  ^cos  ^ 

39 


At  the  poles  f  is  given  by 


f  J  "  ^  (mn) 


7  [(cos  +  cos 


(3.62) 


and 


fi  ■  -fj 


(3.63) 
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With  the  Coriolis  parameter  defined  by  Eqs.  (3.61)  to  (3.63),  the 
finite-difference  form  of  Eq.  (2.24)  in  ir-centered  notation  becomes 


Foo  ■  <nn>00f00 


-  i  (u-ll  +  U11  +  ul-l  + 


u-l-l> ("l  -  "-!> 


(3.64) 


Finally,  the  Coriolis  term  at  a  u,v-grid  point  is  represented  in 
terms  of  F  at  the  four  surrounding  it  points  by 


(uirF) 


£.00  2 


^*11  +  *1-1^  (Fll  +  Fl-1^ 
2  2 


(*-ll  +  *-1-1^  (F-11  +  F-l-l) 


£.00 


(3.65) 


(vrrF) 


£,00  2 


(*11  +  (Fn  +  F^) 


(*-11  +  *-l-l}  (F-11  +  F-l-l) 


£  ,00 


(3.66) 


where  u,v-centered  notation  has  been  used. 


6.  Pressure-Gradient  Force 

The  pressure-gradient  force  terms  require  a  treatment  analogous 
to  that  for  the  mass  flux  discussed  in  Subsection  C.l.  That  is,  they 
require  three  finite-difference  approximations  corresponding  to  the 
three  space-difference  schemes  used  during  the  cycle  of  the  time  in¬ 
tegration,  and  the  pressure-gradient  terms  of  the  u-momentum  equation 
are  smoothed  using  subroutine  AVRX(K),  as  discussed  in  Subsection  C.l. 

In  u,v-centered  notation,  the  pressure-gradient  force  in  the  u- 
momentum  equation  [Eqs.  (2.27)  and  (2.29))  is  given  by 
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(  3tt  \ 

no  VJT+  Va*  3?) 


1 ,00 


n  N0 

r  <<"-n +  ”u)(*t,u  -  *t,-n)  +  t^vV-n +  <v>i)n1<’n  -  Mi” 

nA  _ _ _ - _ _ _ * 

+  r  {(Vl-i  +  Vi)(*u-i "  +  + 

when  MRCH  ■  1  or  2 


n  Nc 

r  <<’-11  +  "ll)(*t,ll  ‘  *>.-11’  +  t<Va«)-U  +  'Wll101!!  -  *-U)) 

when  MRCH  *  3 


T  {(Tt-i-i  +  7,i-i)(^,i-i  '  V-i-i5  +  +  (VaiJi-i](Vi  -  Vl-i)} 

when  MRCH  -  4 


(3.67) 


11q 

where  (  )  indicates  the  smoothing  procedure  in  subroutine  AVRX(K) 

and  $  is  the  geopotential  at  the  levels  l  -  1  and  3  defined  by  Eqs. 
(2.16)  and  (2.17).  The  geopotential  is  evaluated  at  it  points  in  sub¬ 
routine  COMP  2  (steps  5260  to  5430). 

For  the  v-momentum  equations  [Eqs.  (2.28)  and  (2.30)]  the  pressure- 
gradient  force  is  given  by 
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"o  (" 


3*z  ^  »,) 

nu  \  it  - — +  Tart  t  I 

9!r  1  1  Wi.oo 


ii 


TO/-v  k  2 


°l 


*-11  +  *-1-1  (  .  *11  +  *1-1  (. 

2  (V-11  *£,-1-1'  +  2  (*i,ll 


1,1-1 


♦i 


(oi1'ai>-u  +  1-1 


(lT-n  "  *-i-i> 


(Va£>ll  +  <v«t>i_i  . 

+  - 2 -  (*11  “  Vl5]  j 


when  MRCH  ■  1  or  2 


*11  +  *1-1  ,A  A  Wll  +  (ya^ 

2  (*£,11  "  Vl-1*  2  (lTll  "  1T1-1) 


when  MRCH  -  3 


"-11  +  "-1-1 


w  (W-11  +  (VV-1-1  ,  , 

*£ ,-11  *«.,-l-l)  2  (*-ll  "-l-l^ 


when  MRCH  ■  4 


(3.68) 


7.  Horizontal  Advectlon  of  Temperature 

The  horizontal  advectlon  of  temperature  at  the  level  £  and  for  an 
arbitrary  tt  point  at  the  latitudes  from  cp  to  9.  ,  is  given  in  Tr-cen- 
tered  notation  as 


h  (U*T)  + 1?  (/t) 


£,00 


(U  T)£,10  ~  (u  T)£,-10 
+  (V  T)£,01  _  (v  T)£,0-l 


(3.69) 
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where 


and 


,  * 

(v  T) 


£,0±1 


*  1  . 

v  —  (T  +  T  ) 

£,0±1  2  v  £.00  £,0±2; 


(3.70) 


(3.71) 


At  the  poles  only  the  south/north  mass  flux  contributes  to  the 
advectlon  of  temperature.  Thus,  for  the  South  Pole,  Eq.  (3.69)  re¬ 
duces  to 


fa  *  3*1  * 

b  <"  T)  +  37<v  T\0>1‘  (VT)*,0. 


P+1 


(3.72) 


where 


*  * 

£,0,p+l  V£,0,p+1 


£,0,1 


if  v 


£ , 0 , p+2 

while  at  the  North  Pole  it  reduces  to 


£,0,p+l 


M 

|<  0  ) 


(3.73) 


[fe  (u*T>  +  h  <V'T)] 


-  (v*T) 


£ ,0,J 


(3.74) 


where 


(v*T) , 


! 

£,0,J 

f  l 

'  <  0  ) 

*  I 

!  ( 

,  *  I 

1 

V£,0,p-1  j 

lf  V«,0,p-1 

1  1 

1  i 

1 

T£,0,p-2 

1  1 

>  0  j 

(3.75) 
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Ac  the  latitude?  (p.  and  <p.  .  (th#  points  (1,  pi2)  In  ff-centered 
notation]  tha  weac/aaac  advert  Ion  tan  u  T)  la  given  »  apar.lal 
treatmant.  The  fora  of  tha  total  advaction  tara,  analogous  to  Eq. 
(3.69),  la  given  at  thaaa  latitude*  by 


<u*T)  ♦ 


(v*T)] 


l,0,pl2 


<U*T)l.1.pt2  ‘  <U‘T)t,  -l,pi2 
1  (/T)t,0,pl3  ?  (v*T)l,0,pd 


(3.76) 


with  (v  T)  ,  given  by  Eqs.  (3.73)  and  (3.75),  and  with 

i,u,p±i 


(v  T)i,0,p±3  "  Vi,0,pi3  2  (Ti,0,pi2  +  Tt,0,pi4^ 


(u*T) 


i,l,p±2 


(u*T) 


£,-l,p±2  uit- 


(T^.2,pi2) 

UM.P±2  l  / 

|Ti,0,pt2j 

U*  *”1,P"2  J t  ( 

(  l.0,pi2  ) 


if 


if 


*.1.P*2 


1.-1.PS2 


|..j 

M 

n 

•• 


(3.77) 


(3.78) 


(3.79) 


8.  Energy-Converalon  Terms 

The  first  two  energy-converaion  terms  in  the  thermodynamic  energy 
equations  (see  Table  3.3)  do  not  require  horizontal  finlte-diffaranca 
expressions.  They  are  evaluated  at  if  points  in  subroutine  COM?  1  (steps 
4560  to  4660)  from  the  equations 
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“  Voo 


<Tt.oo  /an\ 

Pfc ,00  '3t'oo 


(3.81) 


where  S  and  3n/3t  are  evaluated  at  *  point*  uaing  Eqa.  (3.36)  to  (3.41), 
and  the  preaaure  at  level  i.  la  given  by 


p_  +  o,f 

rT  l 


(3.82) 


In  Eq.  (3.80)  the  definition 


haa  been  uaed  to  eliminate  the  potential  temperature,  and  in  Eq.  (3.81) 
the  equation  of  atate  in  the  form 


haa  been  uaed  to  eliminate  the  apecific  volume. 

The  remaining  energy-converaion  terms  at  the  level  £  are  evaluated 
from  the  expreaaion 


[?<■*£♦’*$>]  -HK&, 


,  oo 

+  (oau  — )  +  (oav  — 

f.,10  y 


i,-10 

*  3n, 


)  +  (oov  £)  1  (3. 

1,0-1  y  ? ,01 J 


83) 


where  ir-centered  notation  has  been  used,  and  where 
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(t'±20  *  ’,oo)[(ac,,')i,±20  +  ^“’'e.oo172 


"lVtn  +  "-lVn-1 
2 


N„ 


N, 


(nlul,  11> 


N, 


(3-lu«,±l-l> 


if  MRCH  -  1  or  2 

if  MRCH  -  3 

if  MRCH  -  4 


(±n0±2  *  1T00)t(oap)£,0±2  +  (Oa1T)£,00]/2 


(3.84) 


mnV£.ltl  *  m±lV-lil 
2 


if  MRCH  -  1  or  2 


*  <  m±lV£ ,1±1 


if  MRCH  -  3 


(3.85) 


m-lV£,-l±l 


if  MRCH  -  4 


•  '  Q 

In  Eq.  (3.84),  (  )  denotes  the  zonal  smoothing  routine  in  subrou¬ 

tine  AVRX(K)  (see  Chapter  III,  Subsection  C.l). 

9.  Horizontal  Advection  of  Moisture 

As  discussed  in  Chapter  II,  moisture  is  carried  only  at  the  level 
£  ■  3.  Furthermore,  the  moisture  is  considered  to  be  advected  by  the 
average  wind  in  the  layer  between  £  -  3  and  the  surface.  By  linear  ex¬ 
trapolation  to  the  surface  of  the  winds  at  levels  £  -  1  and  £  -  3,  the 
average  pressure-area-weighted  wind  in  this  layer  is  given  by  the 
equations 
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A  A 

u3  +  u4  5  *  !  * 

- 2 - "  4  u3  "  4  ul 

*  a  <3‘86> 

V3*  v4  5  *  1  * 

2  "  4  V3  "  4  V1 


Using  Eqs.  (3.86)  for  the  advecting  wind,  the  expressions  for  the  west/ 
east  and  south/north  moisture  advection  at  tt  points  outside  the  poles 
a-re  given  in  ir-centered  notation  by 


(3.88) 


Physically  the  moistuxe  parameter  q  is  a  non-negative  quantity. 

Therefore,  the  fluxes  (q  u  )  ,  etc.  on  the  right-hand  sides  of  Eqs. 

'  J  J'3,01 

(3.87)  and  (3.88)  must  be  defined  in  such  a  way  that  when  a  grid  cell 
becomes  "dry,"  advection  to  neighboring  cells  will  be  prevented.  With 
this  restriction,  the  moisture  fluxes  in  t— centered  notation  are  given 
by 
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* 

<q3**3) 

3,10 

* 

“*3.10 

* 

X  < 

2  q3,00q3,20  lf 

X3 

c 
»— • 

o 

U1 , 10 

q3,00  +  q3,20 

3,00  *  q3,20 


lf  ^q3,00  +  ”3, 20>  '  10 


q3.00  *  q3,20  ,nd 
or 

q3,00  11  q3,20  lmd 

otherwise 


-10 


3.10 

* 

1.10 

* 

3.10 

* 

1.10 


>  0 


<  0 


<  0 


>  0 


(3.89) 


(q3U3> 


(q3Ul) 


3,-10 


3,-10 


3,-10 

* 

*1,-10 


lf  (q3,00  +  q3,0-2^  ‘  10 


-10 


<2 


q  3,00q  3,-20 
q  3 ,00  +  ’3,-20 


lf 


q 3 , -20  *  q3,00 


and 


M.-20 


q  3 .00  +  q  3,-20 

- ir- — J -  otherwise 


3,-10 

* 

*1,-10 


>  0 


<  0 


q3,00  flnd 


3,-10 

t-IO 


(3  °0) 


(q3V3) 


(q3V 


3,01 


3,01 


3,01 

'1.01 


lf  (q3,00  +  q3,02)  '  10 


-10 


q3.nOq3,02  u 

q  3,00  +  q3,02 


q  3,00  '  q3,02  *rld 


q3,00  ’  q3,02  *nd 


q3.00  +  q3,02 

— 1 - y  1 —  otherwise 


V3,01  ”  0 


1,01 


«•  0 


3,01 

* 

*1,01 


(3.91) 


(q3V3) 

3,0-1 

V3,0-l 

q3 .0Oq  3.0-2 

* 

“ 

* 

»  < 

2  - — *• -  lf 

(q3Vl) 

3,0-1 

V 1  ,0-1 

q3 ,00  q  3 , 0-2 

*f  (q3,00  +  q3,0-?)  ‘  10 


q3,0-2  '  q3,00  *nd 


q 3, 0- 2  *  q 3 ,00  *nd 


-10 


* 

>  0  I 

'l  ,0-1 

* 

r  0 

1,0-1 

* 

1,0-1 

«■  0 

* 

*  0 

1,0-1 

’3,00  ’3,0-2 


(3.92) 


2 


otherwise 
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In  the  polar  capa  only  tha  aouth/north  advactlon  tana  given  by 
Eq.  (3.88)  contribute  to  the  advactlon  of  molature.  I„  .-centered 
polar  notation,  Eq.  (3.88)  at  the  South  Pole  becomes 


and  at  the  North  Pole 


(3.93) 


.(! 


5 

4 


3,0,p-l 


*M). 


3,0,p-l 


(3.94) 


where  the  fluxes  on  the  right-hand  side  of  Eq.  (3.93)  are  given  by  Eq. 

(3.91)  and  those  on  the  right-hand  side  of  Eq.  (3.94)  are  given  by 
Eq.  (3.92). 


— Horizontally  Differenced  Friction  Terms 

The  friction  tema  and  F™  appearing  In  the  equatlona  of 

motion  (2.27)  to  (2.30)  are  given  in  horizontally  differenced  form  in 
u,v  notation  by 


F 

1,00 

Fy 

1,00 

FX 

3,00 


(0. 7)u 


4,00 


(3.95) 

(3.96) 

(3.97) 
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3,00 


86<vi,oo  -  ''a.ooX'oo''2 


.  ls_  c 

U  D 
00 


(voo  +  V 

jit)1 

4,00 


(|^s|q0  +  G)  <°-7>v4.00  <3-98> 


These  forms  rest  upon  the  approximation  of  the  height  difference 

(zl  -  z3)  in  Eq.  (2.36)  by  Az(ir/irs),  where  Az(-  5400  m)  and  ir  (-  800  mb) 

are  standard  values  of  ^  -  z3)  and  tt,  respectively.  The  coefficient 

6  thus  becomes  g  -  2^  (Az)'1,  and  is  taken  as  0.13  mb2  sec  m'1,  corre¬ 
sponding  to  V  m  0.44  mb  sec. 

In  Eqs .  (3.97)  and  (3.98)  the  surface  wind  speed  1^  I17  is  given 
(in  u,v  notation)  by  S  00 


(3.99) 


where  V  =0.7 
s 


V4 1  and  where  V4  "  2  ^3  "  \  \  "  <VV  is  the  wind 


extrapolated  to  level  4.  Here  the  subscripts  refer  to  the  u,v  grid 
(see  Fig.  3.7).  The  gustiness  term  is  given  by  the  constant  G  » 

2.0  m  sec"  .  The  surface  drag  coefficient  is  given  by  the  relations 


min 


|(l.O  +  0,07|Vg|*Jl('~3,  0.0025 j  ,  if 


ocean 


0.002  +  0.006(z  /5000  m) , 


(3.100) 


otherwise 


where  z 4  is  the  elevation  of  the  surface  of  the  ground.  Hence  C 
varies  between  0.001  and  0.0025  over  the  ocean,  while  over  either  bare 
land  or  ice,  CD  is  independent  of  the  wind  speed  and  varies  between 
0.002  over  lowlands  and  sea  ice  to  about  0.007  over  the  higher  moun¬ 
tains.  This  increase  of  the  drag  coefficient  with  z^  is  an  attempt  to 
simulate  the  increased  roughness  or  ruggedness  of  the  terrain  in  higher 
elevations,  as  suggested  by  the  work  of  Cressman  (1960). 
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As  elsewhere  In  this  section,  the  subscript  00  (in  u,v-centered 
notation)  denotes  an  arbitrary  point  of  the  u,v  grid,  and  the  super¬ 
script  u  denotes  the  average  of  the  four  surrounding  points  of  the 
7T  (or  primary)  grid.  Hence 


u  1  . 

*00  "  4  (*-ll  +  *11  +  *-l-l  +  (3.101) 

recalling  that  the  it  grid  is  displaced  upward  and  to  the  left  of  the 

u* v  8^  (see  Fig.  3.2).  The  factor  (tt“0  +  PT)  (RT^  00)-1  in  Eqs.  (3.97) 

and  (3.98)  is  thus  the  surface  air  density  p  .  This  averaging  serves 

to  "center"  the  pressure  and  temperature  on  the  local  velocity  point. 

Note,  however,  that  V  also  involves  a  4-point  averaging;  although 

00 

this  is  unnecessary  for  a  point  of  the  u,v  grid,  it  is  consistent  with 
the  calculation  of  the  surface  evaporation  and  sensible  heat  flux  at 
points  of  the  tt  grid  (where  averaging  over  velocity  points  ie  necessary) . 

In  the  program  the  frictional  terms  (3.95)  to  (3.98)  are  computed 
every  fifth  time  step  as  part  of  the  COMP  3  subroutine  (instructions 
9700  to  9920),  and  directly  give  the  frictionally  induced  speed  change 
in  m  sec  for  the  5At  =  30  min  interval.  The  factor  n  in  Eqs.  (2.27)  to 
(2.30)  is  effectively  divided  out  in  the  finite-difference  computations. 

11.  Moisture-Source  Terms 

The  source  term  2mng(E  -  C)  in  the  moisture  equation  (2.35)  may 
be  written  in  differenced  form  as 


2mng(E  -  C)  =*  2(mn)QOg(E  -  C)Q0 


n00  f 

5Al  (Aq 3}  '  (^3>  -(^3)  -  (AqJ  (3.: 

1  E  ™  3  CM  3  CP  „„ 


where  the  subscript  00  denotes  (in  Tr-centered  notation)  an  arbitrary 
point  of  the  tt  grid  (see  Fig.  3.6).  This  source  computation  is  carried 
out  for  level  3  every  five  time  steps  in  subroutine  COMP  3,  instructions 
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11300  to  11310.  Here  the  level-3  moisture  change  (in  5At)  due  to 
evaporation  is  given  by 

(Aq3)  =  f2-  E  5At  (3.103) 

E  ,00  *00  UU 

according  to  Eq.  (2.111),  where  is  the  local  evaporation  rate  it¬ 
self.  The  level-3  moisture  change  due  to  large-scale  condensation  is 
given  by 


c 

(Aq  )  =  (AT  ) 

LS ,00  L  J  LS ,00 


(3.104) 


where  (AT  )  is  the  local  temperature  change  (over  5At)  at  level  3 
LS 

due  to  the  large-scale  latent-heat  release,  as  given  by  Eq.  (2.47). 

The  level— 3  moisture  change  due  to  middle— level  convection  is  given  by 


c  . 

(Aq  )  =  r2  (AT  )  +  (AT  )  (3.105) 

CM, 00  14  1  CM, 00  J  CM, 00  ] 

where  (AT  )  and  (AT  )  are  the  temperature  changes  (over  5At) 

CM, 00  J  CM, 00 

at  levels  1  and  3  due  to  the  latent-heat  release  in  middle-level  con¬ 
vective  condensation,  as  given  by  Eqs.  (2.73)  and  (2.74),  respectively. 
Finally,  the  moisture  change  at  level  3  due  to  penetrating  convection 
is  given  by 


(AqJ 

CP, 00 


c 

L 


(AT  )  +  (AT  ) 

CP, 00  J  CP, 00 


(3.106) 


where  (AT  )  and  (AT  )  are  the  temperature  changes  (over  5At) 

CP, 00  J  CP, 00 

at  levels  1  and  3  due  to  the  release  of  latent  heat  in  penetrating  con¬ 
vective  condensation,  as  given  by  Eqs.  (2.101)  and  (2.102),  respectively. 
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The  three  moisture-change  terns,  Eqs.  (3.104)  to  (3.106),  col¬ 
lectively  constitute  the  total  moisture  sink  due  to  condensation, 
which  we  may  then  write  as 


(Aq  )  +  (Aq  )  +(Aq  )  1  -  Cnn5At  (3.107) 

L  LS  J  CM  J  CP-I00  *00  00 

in  analogy  with  (3.103)  for  the  evaporation.  Since  all  condensed  water 
vapor  is  assumed  to  fall  out  as  precipitation,  we  may  also  rewrite 
Eq.  (3.107)  in  the  form 

C00  "  (PLS  +  PCM  +  PCP)0Q  (3.108) 

where  PLS>  P^,  and  P^  are  the  precipitation  rates  resulting  from 
large-scale  condensation,  middle-level  convection,  and  penetrating  con¬ 
vection,  as  given  by  Eqs.  (2.50),  (2.76),  and  (2.107),  respectively. 

12.  Diabatic  Heating  Terms 

The  heating  terms  ITI^/Cp  and  ITH3/cp  in  Eqs.  (2.31)  and  (2.32)  may 
be  written  in  differenced  form  as 

00^1,00/cp  (3.109) 

n00H3,00/cp  (3-110) 

where  the  subscript  00  (in  Tr-centered  notation)  denotes  an  arbitrary 
point  of  the  it  grid.  These  terms  are  computed  every  fifth  time  step 
in  the  subroutine  COMP  3.  Here  the  diabatic  heating  rates  at  levels  1 
and  3  are  given  by 
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(cp)  Rl,00  “  (A1  +  R2  “  V 


00  (noocP) 


+  |  (AT. )  +  (AT  ) 

CM  1  CP 


5At 


00/ 


(3.111) 


_2iL 


(c  )  1H  nn  ■  (A  +  R,  -  R.)  .  i  ■  ‘aa  i 

p  3,00  3  4  2  00  \1T00Cp/  00  V^ooS 


+ 


+  I  (AT  )  +  (AT  )  +  (AT  ) 

CM  J  CP  J  LS 


/5At 


00/ 


(3.112) 


according  to  Eqs.  (2.173)  and  (2.174),  where  and  are  the  net  short¬ 
wave  radiation  absorbed  at  levels  1  and  3,  and  R2  -  and  R^  -  R2  are 

the  net  long-wave  radiation  absorbed  at  the  two  levels.  These  terms  in 
Eqs.  (3.111)  and  (3.112)  therefore  constitute  the  radiative  portions  of 
the  diabatic  heating.  The  lower-level  heating  also  contains  a  contri¬ 
bution  from  the  vertical  sensible  heat  flux  from  the  surface  r^.  The 
terms  in  (AT^)  and  (AT^)  are  the  temperature  changes  due  to  convective 
effects,  with  the  subscript  CM  denoting  midlevel  convection  and  CP  de¬ 
noting  penetrating  or  deep  convection.  Together  with  the  term  in  the 
level-3  temperature  change  due  to  large-scale  condensation,  LS,  these 
terms  constitute  the  portions  of  the  diabatic  heating  due  to  the  release 
of  the  latent  heat  of  condensation,  as  considered  in  Eqs.  (3.104)  to 
(3.106).  The  total  diabatic  heating  is  illustrated  in  Map  8,  Chapter  IV. 


D.  SMOOTHING 


Aside  from  the  smoothing  built  into  the  time  finite-difference  ap¬ 
proximations  themselves,  relatively  little  explicit  smoothing  is  per¬ 
formed  in  the  present  version  of  the  program.  The  subroutine  AVRX(K), 
which  performs  a  three-point  ronal  averaging,  is  employed  in  the  main 

subroutines  COMP  1  and  COMP  2  principally  for  the  mass-flux  variables 
*  * 

u^  and  u^,  as  described  in  Subsection  C.l  above.  The  only  other  use 


of  AVRX(K)  is  with  the  zonal-pressure  force  terms  1  n 


and 


(* 


3$ , 

3x 


+  o3™3 


3x/ 


(.  3*1 


3x 


3tt  \ 

+  Vai  5J ) 


in  the  momentum  equations,  as  described  in 
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Subsection  C.6  above.  The  effect  of  the  use  of  subroutine  AVRX(K)  is 

to  introduce  a  multiple-point  zonal  difference  for  higher  latitudes 

* 

to  help  avoid  computational  instability;  the  variables  such  as  u^  are 
not  themselves  smoothed. 

This  selective  zonal  averaging  subroutine  is  called  every  time 
step,  with  the  number  of  smoothing  passes  made  at  each  step  (as  well 
as  the  smoothing  weighting  factor)  increasing  with  latitude.  Denot¬ 
ing  (  )  the  smoothed  value  of  a  variable  (  ),  the  zonal  smoothing 
subroutine  AVRX(K)  may  be  described  by 


(  ) 


00 


V  *-10  +  ^  2xo*^  *00  + 


V  *10 


where  the  subscripts  denote  identity  points  in  the  (i,j)  grid  array, 
and  where  the  weighting  or  smoothing  factor  A^  is  given  by 

(  0,  for  NQ  <  1 

X0  *  ) 

(  [l/8(ne/m0  -  1)]/N0,  for  NQ  >  1 


Here  ng  is  the  latitudinal  separation  of  grid  points  at  the  equator, 
m^  is  the  longitudinal  separation  of  tt  points  at  the  latitude  of  the 

smoothing,  and  N  is  the  integer  part  of  (n  /m.) .  The  smoothing  is 

0  e  0 

applied  times  at  each  latitude,  as  shown  in  Table  3.7.  Note  that 
the  number  of  applications  of  the  smoothing  operator  increases  from 
zero  between  the  equator  and  J34  deg  latitude  to  11  near  the  poles. 

The  strength  of  the  smoothing  as  given  by  A^  is  also  seen  to  vary  with 
latitude. 

An  explicit  smoothing  occurs  in  the  subroutine  COMP  3,  where  the 
•  • 

heating  rates  and  for  the  two  model  layers  [as  in  Eqs.  (2.31) 
and  (2.32)]  are  first  averaged  together,  area  weighted,  and  then  sub¬ 
jected  to  a  9-point  horizontal  averaging  prior  to  their  final  incor¬ 
poration  into  the  temperature-change  computation  at  each  level.  This 
smoothing  is  described  as  part  of  the  subroutine  COMP  3  (see  Chap¬ 
ter  II,  Subsection  G.4). 
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Table  3.7 

SMOOTHING  PARAMETERS  USED  IN  SUBROUTINE  AVRX(K) 

Here  is  the  three-point  smoothing  weighting 
factor  [as  in  Eq.  (3.27)]  and  N^  is  the  number  of 
times  the  smoothing  is  repeated  at  each  latitude. 


SP*  deg 
(LAT) 

No 

(NM) 

xo 

(ALPHA) 

-34  to  +34 

0 

0 

+  38 

1 

1.90  x  10"3 

±42 

1 

9.56  x  10-3 

±46 

1 

1.90  x  10-2 

±50 

1 

3.06  x  10-2 

±54 

1 

4.51  x  10-2 

±58 

1 

6.37  >'  10'2 

±62 

1 

8.80  x  10”2 

±66 

1 

1.21  x  10-1 

±70 

2 

8.37  x  10-2 

±74 

2 

1.19  x  10-1 

±78 

3 

1.19  x  10-1 

+  82 

5 

1.19  x  10_1 

±86 

11 

1.19  x  10_1 
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The  remaining  smoothing  operations  are  performed  on  the  lapse 
rate  in  the  subroutine  COMP  4,  which  is  called  every  5  time  steps. 
Here  the  temperature  at  levels  1  and  3  is  smoothed  according  to 


\  (T3  +  Tx)  -  tt[TD  +  (ID  -  TD)] 


(3.113) 


“  —  (T  + 
2  U3 


T^  +  tt[TD  +  (TD  -  TD)] 


(3.114) 


where  the  temperature  difference  (or  lapse  rate)  TD  is  given  by 


TD 


(3.115) 


and  (  )  denotes  the  9-point  horizontal  average  about  a  point  00  of  the 
tt  grid,  given  in  ir-centered  notation  by 


T6  <TD-22  +  2TD02  +  TB22  +  2TD 

+  2TD20  +  TD_2_2  +  2TDq_2  +  TD 


-20 


2-2 


+  4TD, 


00 


) 


(3.116) 


Since  the  first  terms  of  Eqs.  (3.113)  and  (3.114)  are  a  form  of  vertical 
averaging,  this  subroutine  may  be  regarded  as  a  three-di>.*ensional  smooth¬ 
ing  operation,  wherein  the  temperature  at  levels  1  and  3  is  altered  in 
proportion  to  the  departure  of  the  local  lapse  rate  from  the  9-point  av¬ 
eraged  lapse  rate.  If  TD  ■  TD,  for  example,  T^  and  T^  remain  unaltered 
by  this  smoothing.  Viewed  in  another  fashion,  from  Eqs.  (3.113)  and 
(3.114)  we  have 


TD 


smoothed 


TD  +  (TD  -  TD) 


(3.117) 


and  the  averaging  may  be  regarded  as  a  local  smoothing  of  the  lapse 


rate. 
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Another  part  of  the  subroutine  COMP  4  (instructions  12270  to 
12680)  provides  for  the  smoothing  of  the  local  velocity  change  through 
the  simulation  of  a  horizontal  diffusion  of  momentum.  This  portion 
is  omitted  in  the  present  version  of  the  code  through  the  assignment 
of  a  zero  lateral-diffusion  coefficient. 

E.  GLOBAL  MASS  CONSERVATION 

Although  the  continuity  equation  (2.33)  is  solved  at  each  (mass) 
point  of  the  grid  at  each  time  step  (see  Chapter  III,  Subsection  C.2), 
a  small  loss  of  mass  over  the  globe  still  occurs  because  of  the  trun¬ 
cation  causeil  by  the  retention  of  at  most  7  decimal  digits  in  tha 
single-precision  calculation  (which  does  not  round)  of  the  surface 

X 

pressure  on  the  IBM  360/91  computer.  Over  the  globa  this  amounts  to 
approximately  a  0.0028  percent  (2.8  *  10  ^)  loss  of  mass  per  day  of 
simulated  time.  To  correct  for  this  effect,  the  subroutine  CMP  is 
used  once  every  24  hours;  in  CMP  the  local  value  of  the  surface  pres¬ 
sure  parameter,  r, ,  is  increased  (at  every  point)  by  the  amount 
984  mb  -  p^,  where  p  is  the  global  average  surface  pressure  determined 
eacli  day  (as  the  sum  of  the  global  average  of  the  current  r  distribution 
and  the  constant  tropopauso  pressure  pT  »  200  rob).  Here  the  constant 
984  mb  is  used  to  represent  the  observed  global  average  surface  pres¬ 
sure,  and  is  read  into  the  program  as  the  loaded  constant  PSF.  In 
the  present  version  of  the  program  this  correction  at  each  --grid  point 
thus  amounts  to  approximately  0.028  mb  per  day. 

F.  CONSTANTS  AND  PARAMETERS 


1 .  Nume rlcal  _D ata  L 1st 

Although  a  number  of  the  constants  and  parameters  used  in  the  mod¬ 
el  integration  arc  given  elsewhere  [see  particularly  the  chapters  on 
model  performance  (IV),  the  list  of  symbols  (VI),  and  the  FORTRAN  dic¬ 
tionary  (VIII)],  it  is  useful  to  collect  them  here  for  cany  reference. 


-t. 

Presumably  thin  loss  would  be  reduced  by  the  use  of  double-pre¬ 
cision  arithmetic. 
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Those  symbols  with  an  asterisk  (*)  are  defined  within  the  subroutines 
COMP  3  or  INPUT,  with  the  others  loaded  via  data  cards  (see  Chapter  IV, 
Section  A) . 


Constant 

Symbol 

Value  and  Units 

ratio  of  latent  heat  of  conden¬ 
sation  to  specific  heat  at 
constant  pressure,  L/c 

P 

* 

CLH 

580/0. 24  deg 

length  of  day 

DAY 

86,400  sec 

days  per  year 

DAYPYR* 

365  days 

maximum  solar  declination 

DECMAX* 

23.5tt/180  radians 

north/south  grid-point  spacing 

DLAT 

4  deg 

east/west  grid-point  spacing 

DL0N* 

2ir/lM  radians  (- 

time  step.  At 

* 

DT 

360  sec 

time  step.  At 

DTM 

6  min 

standard  value  of  vertical 
eddy  mixing  coefficient 

ED 

in  2  -1 

10  m  sec 

gravity,  g 

GRAV 

9.81  m  sec  ^ 

vertical  shear-stress 

coefficient  (*  10 

FMX 

0.2  sec  ^ 

grid  points  In  meridional 
direction 

JM 

46 

grid  points  In  zonal 
direction 

IM 

72 

thermodynamic  ratio,  k 

KAPA 

0.286 

frequency  of  source-term 
calculation 

NC3 

5  (every  30  min) 

average  surface  pressure 

PSF 

984  mb 

standard  sea-level  pressure 

PSL 

1000  mb 

tropopause  pressure,  pT 

PTR0P 

200  mb 
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Constant 

Symbol 

Value  and  Units 

earth's  radius,  a 

RAD 

6.3750  x  106  m 

dry-air  gas  constant,  R 

RGAS 

287.0  m^  deg  ^  sec  ^ 

solar  rotation  period 

R0TPER* 

24  hr 

upper  model  level,  c 

SIG(l)* 

0.25 

lower  model  level, 

SIG(2) * 

0.75 

solar  constant  (normalized) 

> 

st> 

2880  ly  day  *  (■  2  ly  min  *) 

freezing  temperature 

•k 

TICE 

273.1  deg  K 

2.  Geographical  Finite-Difference  Grid 

The  specific  geographical  position  of  the  points  of  the  -46  by  72 
grid  is  shown  in  Fig.  3.12.  Here  the  grid  points  of  the  primary  or 
tt  grid  are  given  over  the  oceans  every  4  deg  latitude  and  5  deg  longi¬ 
tude,  together  with  the  outlines  of  the  continents  and  islands  re¬ 
solved  by  the  interlocking  points  of  the  u,v  grid.  The  left-hand  and 
right-hand  columns  of  grid  points  are  at  180  deg  longitude;  the  top 
and  bottom  rows  are  at  the  North  and  South  Poles,  respectively,  with 
the  latitude  identification  on  the  right  of  the  figure.  The  finite- 
difference  indices  i  and  j  are  shown  on  the  bottom  and  left  side  of 
the  figure,  respectively.  This  map  is  on  the  same  scale  as  that  used 
to  show  the  land  elevations  and  sea-surface  temperatures  in  Figs.  3.13 
and  3.14,  and  is  the  same  as  that  used  for  the  selected  variables  pro¬ 
duced  by  the  map-generation  program  in  the  figures  of  Chapter  IV. 

3.  Surface  Topography  (Elevation,  Sea-Surface 
Temperature,  Ice,  and  Snow  Cover) 

During  the  course  of  a  numerical  simulation,  the  land  surface 
elevation  and  the  ocean  surface  temperature  are  held  fixed,  and  thus 
serve  as  physical  surface  boundary  conditions.  Although  these  data 
may  conceivably  be  changed  from  one  simulation  to  another,  their 
normal  distributions  are  shown  in  Figs.  3.13  and  3.14  in  the  form  of 
the  programmed  Map  5  output  (see  Map  Routine  Listing,  Chapter  VII),  and 
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the  corresponding  global  grid-point  values  are  given  every  5  deg  longi¬ 
tude  and  4  deg  latitude  (at  the  points  of  the  t r  grid)  in  the  tabula¬ 
tion  following  the  maps. 

The  land  elevations  shown  in  Fig.  3.13  are  based  upon  the  values 
at  points  of  the  4  deg  latitude,  5  deg  longitude  grid  (see  data  tabu¬ 
lation),  which  were  themselves  obtained  from  the  subjective  interpola¬ 
tion  of  topographic  maps.  These  data  resemble  (but  are  not  identical 
to)  the  data  given  by  Berkofsky  and  Bertoni  (1955) ,  and  are  tabulated 
in  Table  3.8.  In  Fig.  3.13  the  overprinted  symbol  I  designates  those 
grid  points  at  which  the  land  is  ice  covered;  in  the  data  tabulation, 
the  elevation  of  these  points  is  given  separately  in  Table  3.9,  where 
0  denotes  the  locations  of  sea  ice.  In  the  present  version  of  the 
model,  the  ice-covered  points  are  not  permitted  to  change  their  sur¬ 
face  cover  during  the  course  of  the  simulation. 

The  ocean  surface  temperatures  shown  in  Fig.  3.14  are  based  upon 
the  values  at  points  of  the  4  deg  latitude,  5  deg  longitude  grid  (see 
data  tabulation)  which  were  obtained  from  the  average  annual  sea-sur¬ 
face  temperature  data  given  by  Dietrich  (1963).  These  data  resemble 
(but  are  not  identical  to)  the  mean  of  the  average  February  and  August 
distributions  given  by  Sverdrup  (1943),  and  are  tabulated  in  Table  3.10. 
In  Fig.  3.14  the  overprinted  symbol  I  here  designates  those  n-grid 
points  at  which  sea  ice  is  prescribed  (and  held  intact  throughout  the 
simulation);  in  the  data  tabulation  these  sea-ice  points  may  be  iden¬ 
tified  by  the  assigned  constant  temperature  0  deg  C  (see  Table  3.9). 
Because  the  ocean's  surface  temperature  is  not  allowed  to  change,  even 
though  there  are  evaporation,  radiative  transfer,  and  sensible-heat 
fluxes  at  the  surface,  the  ocean  has  effectively  been  assumed  to  be  of 
infinite  thermal  capacity.  The  surface  temperatures  of  the  sea  ice, 
land  ice,  snow-covered  land,  and  bare  land,  on  the  other  hand,  are 
allowed  to  change,  and  are  separately  computed  (see  COMP  3  in  the  Pro¬ 
gram  Listing,  Chapter  VII). 

All  land  grid  points  north  of  a  seasonally  varying  northern  snow¬ 
line  (SN0WN)  are  considered  to  be  snow  covered.  Snow  does  not  cover 
either  ice-covered  land  or  sea  ice.  The  northern  snowline  has  a  15-deg 
sinusoidal  seasonal  variation  around  60  deg  north  latitude  given  by 
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SN0WN  -  60  deg  -  15  deg  cos  (day  -  24.6)] 

where  "day"  Is  the  number  of  the  day  of  the  year,  with  day  0  correspond¬ 
ing  to  1  January.  A  constant  southern  snowline  (SN0WS)  is  defined  at 
60  deg  south  latitude.  Although  the  value  of  this  southern  snowHne 
is  required  by  the  program  for  the  surface-albedo  calculation  (see 
Chapter  III,  Section  H) ,  it  actually  has  no  function  in  defining  snow 

cover,  since  all  land  south  of  60  deg  is  permanently  ice  covered  (see 
Fig.  3.13). 
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Table  3.B  (cont.) 

LANO  FLFVATION  (  100  FT  ) 
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Table  3.8  (cont.) 
LAND  ELEVATION  ( 100  FT  ) 
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Tablc  3.8  (cont.) 
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Table  3.9  (cont.) 
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Table  3 ,9  (cont.) 
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Table  3.10 
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1  2.  A 

12.3 

10.7 

1  0.  8 

1  0.  3 

8.3 

7.8 

7.7 

8.7 

b.  3 

b.O 

2.A 

2.1 

1  .b 

-0.  b 

-0.  b 

-0.  b 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

tf- 

A 

1  38W 

130W 

A 

if 

A 

if 

A 

A 

A 

A 

# 

A 

A 

jJj 

A 

A 

if 

A 

A 

if 

A 

A 

if 

A 

A 

if 

8.9 

A 

if 

1  0.  b 

10.8 

if 

12.8 

12.3 

1  1  .8 

1  A  .  ? 

1  3.  b 

12.0 

lb.b 

1  A  .  8 

12.8 

17.1 

1  b.  1 

1  A.  7 

18.8 

17.9 

17.1 

20.  8 

19.8 

19.2 

21.7 

2  1.0 

2  0.7 

23.2 

2  3.0 

23.2 

2  A ,  7 

2  A.  7 

28.2 

2b.  1 

2b.  3 

2b. b 

2b. 8 

2b.  8 

2b. R 

2b.  0 

28.8 

28.8 

2  b.A 

2  A  ,  b 

2  A  .  3 

2b.  ? 

28.9 

2  8  a  A 

?b  .  8 

2b. 1 

28.8 

2b.  3 

2b.  2 

28.7 

2  b  .  A 

2  8.3 

28.2 

2  A.  1 

2A.  , 

2  3.9 

22.8 

22.8 

22.  A 

20.2 

20.  1 

20.  I 

1  7.b 

17.7. 

17.8 

'  A.  A 

\  •  i* 

1  A.b 

i  2.3 

1^.3 

12.3 

1  0.2 

10,  1 

10.1 

7.8 

7.'< 

7.3 

A.b 

* 

A.b 

1  .  2 

1  .  1 

1  .3 

-0.  7 

-0.  h 

-0.  b 

A 

if 

A 

A 

* 

A 

A 

$ 

A 

A 

* 

A 

A 

* 

A 

A 

* 

A 

A 

* 

A 
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Table  3.10  (cont.) 

SRA-SUR5ACF  T  F  MP  HR  A  T  l)R  8  t  OH',  C) 


1  ?ow 

115W 

1  low 

105W 

mow 

95W 

90W 

85W 

HOW 

75W 

70  W 

6  5  W 

9  ON 

* 

# 

$ 

* 

ft 

s 

ft 

* 

* 

RAN 

$ 

$ 

# 

# 

ft 

* 

* 

R2N 

* 

$ 

# 

* 

ft 

$ 

ft 

78N 

* 

* 

$ 

ft 

* 

ft 

£ 

# 

* 

* 

* 

7AN 

* 

ft 

ft 

ft 

>;• 

$ 

* 

* 

* 

70N 

$ 

* 

ft 

* 

ft 

ft 

* 

* 

* 

6AN 

* 

ft 

ft 

t- 

* 

$ 

>}« 

* 

A2N 

ft 

$ 

ft 

ft 

ft 

ff 

* 

5RN 

* 

ft 

$ 

ft 

❖ 

'■t 

ft 

ft 

* 

* 

RAN 

# 

ft 

# 

ft 

* 

ft 

■■t 

ft 

* 

* 

50N 

* 

* 

<• 

ft 

ft 

ft 

ft 

* 

# 

* 

A6N 

* 

* 

ft 

* 

ft 

ft 

9.1 

* 

$ 

# 

A2N 

* 

* 

ft 

ft 

* 

>t 

ft 

ft 

$ 

* 

10.8 

1  ?  •  8 

38  N 

A 

)[( 

ft 

$ 

ft 

ft 

* 

16.0 

19.0 

?().? 

3AN 

14.3 

* 

<! 

ft 

# 

>t 

ft 

ft 

?3.  1 

??.4 

?1 .9 

30N 

16.6 

* 

* 

ft 

ft 

2 A.  3 

2A.3 

* 

?4  .  ? 

?  3 . 7 

?  3  •  6 

2AN 

lfl.7 

18.8 

* 

ft 

* 

25.1 

2  A  .  3 

2 A.  3 

?6. 8 

?5.7 

?  5 . 4 

?  5 . 3 

22N 

20. H 

22.0 

2  A  .  5 

ft 

2  A  .0 

2  7.0 

27. A 

# 

?  6 . 9 

?6 . 3 

?6. 1 

18N 

cc 

• 

rv 

2  A .  7 

2  A .  2 

27. A 

❖ 

* 

ft 

27.  7 

?7.6 

?7.  1 

* 

?  6 . 6 

IAN 

25.7 

2  A  .  3 

27.2 

27.7 

?8.0 

28.2 

ft 

* 

?  7  •  3 

?6  •  7 

?  6  .  ? 

?  6 . 4 

ION 

2A.9 

27.2 

27.  A 

27.6 

?7.6 

27.5 

27.  A 

27.  A 

* 

?6.  1 

* 

# 

AN 

2  A .  9 

2  A  ,  9 

26.9 

26.9 

?6.9 

2A.8 

2  A  .  8 

2A.8 

?6.9 

* 

* 

* 

2N 

25.5 

25.5 

25.5 

25.2 

?5.1 

25.0 

2  5.0 

25.0 

?5.0 

* 

* 

* 

2S 

23.8 

23.5 

23.5 

23.3 

??.9 

22. A 

22.0 

21  .A 

* 

* 

AS 

25.2 

2  A .  9 

2A  .  A 

2a. 3 

?3.7 

23.2 

22.  A 

21.0 

* 

* 

$ 

10S 

25.  A 

25.0 

2  A  .  8 

2  A .  3 

2  3.9 

23.2 

22. A 

21.3 

18.3 

* 

* 

* 

IAS 

25.2 

2  A.  9 

2A.3 

23.8 

23.4 

22.7 

21  .9 

20.  8 

19.0 

* 

* 

18S 

2  A  .  8 

2  A  .  5 

2  A  .  1 

23.2 

22.  a 

22.2 

21.3 

20.2 

19.? 

16.7 

* 

* 

22s 

23.8 

23.  A 

23.2 

22.8 

22.2 

21.5 

20.  7 

1  9.9 

18.7 

17.1 

* 

* 

2  AS 

2. 2.  A 

22.3 

22.1 

21.9 

21.8 

21.1 

20.  3 

19. A 

18.6 

17.3 

* 

* 

30  S 

20.0 

20.0 

20.0 

20.0 

19.8 

19.3 

19.0 

18.  A 

17.4 

1  6.3 

* 

* 

3AS 

17.5 

17.5 

17.5 

17.5 

17.4 

17.1 

1 A  .  9 

1 A  .  8 

16.6 

15.1 

* 

* 

38  S 

l  A  .  A 

1  A  „  A 

1A.  A 

1A.  A 

14.6 

IA.5 

1A.  5 

1  A.  5 

14.4 

14.0 

A2S 

12.3 

12.3 

12.3 

12. A 

12.4 

12. A 

12.5 

12. A 

1  ?.  3 

# 

* 

* 

AAS 

10.1 

10.  1 

10.  1 

10.0 

10.  1 

10.1 

10.1 

1  0.  1 

10.  3 

* 

10.8 

SOS 

7.3 

7.3 

7. A 

7.5 

7.5 

7  .A 

7.7 

8.0 

8.1 

❖ 

* 

8.5 

5  A  S 

A.  7 

A.  8 

5.0 

5.1 

5.3 

5. A 

5.9 

A. 2 

6.6 

6.7 

* 

6.6 

58  S 

l  .A 

2.1 

2.3 

2.5 

2.7 

3.1 

3. A 

3.7 

4.1 

4.? 

4.3 

4. 1 

A2S 

-0.  A 

-0.  A 

-0.  1 

0.  1 

0.4 

0.  A 

0.9 

1.0 

1  .  3 

1.4 

1  .? 

0.7 

AAS 

* 

-1.8 

-1.5 

-1.3 

-0.9 

-0.8 

-0.7 

-0.  A 

-0.6 

# 

* 

# 

70S 

* 

$ 

$ 

* 

ft 

* 

ft 

»;« 

* 

* 

* 

7  A  S 

* 

* 

ft 

# 

* 

ft 

ft 

ft 

* 

* 

* 

* 

78  S 

$ 

>» 

# 

* 

* 

ft 

ft 

ft 

* 

* 

8  2  S 

* 

A 

* 

>1* 

A 

ft 

ft 

* 

* 

* 

* 

8  AS 

* 

V> 

* 

* 

* 

ff 

ft 

ft 

* 

* 

* 

* 

90S 

* 

J!* 

* 

* 

ft 

ft 

ft 

4» 

4* 

* 
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Table  3.10  (cont.) 

SFA-SURFACF  TEMPFRATURF  IDFO  Cl 


60W 

55W 

sow 

ASW 

AOW 

3SW 

30W 

2  SW 

20W 

15W 

low 

SW 

90N 

$ 

* 

* 

* 

$ 

* 

* 

* 

a 

$ 

* 

* 

R6N 

* 

* 

$ 

* 

* 

* 

* 

* 

a 

* 

* 

* 

R2N 

* 

* 

it 

* 

$ 

* 

$ 

a 

a 

* 

it 

♦ 

7R  N 

* 

* 

* 

$ 

* 

$ 

* 

* 

a 

* 

it 

* 

74N 

$ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

it 

-0.6 

70N 

$ 

* 

* 

* 

* 

* 

$ 

# 

a 

0.5 

0.5 

2  •  S 

66N 

$ 

-0.  1 

* 

<* 

* 

* 

A. 2 

5.2 

5.5 

5.7 

5.9 

6.0 

62N 

0.4 

1  .4 

0.2 

* 

A. A 

S  .9 

6.7 

7.6 

R  .  5 

R  .6 

R  .6 

ft  .6 

5RN 

1.1 

3.  1 

3.S 

3.R 

5. A 

6.6 

7.7 

R.7 

9.6 

10.  3 

10.2 

* 

54N 

$ 

2.6 

A. 6 

6.3 

R.O 

9.5 

10. A 

11.1 

1  1.5 

1  1  .6 

1  1  .A 

* 

50N 

l.S 

* 

A  .  1 

H.R 

12.2 

13.0 

13.5 

13.5 

13.2 

12. R 

12.3 

12.0 

46N 

S.6 

6.1 

6.  A 

11.9 

1S.S 

16.2 

16.1 

15.1 

1 A  .  6 

1 A  .  1 

1 A  .0 

13.9 

42N 

14. R 

16.3 

1  A.R 

1S.R 

17.9 

17. R 

17.3 

16.5 

16.1 

15. R 

1  A  .  R 

* 

3RN 

20.2 

20.0 

19.9 

19.6 

19.9 

19.3 

1  H  .  7 

1R  .3 

17. R 

17.3 

* 

* 

34N 

21. R 

21.7 

21.6 

21.6 

21.1 

20.6 

20.2 

19. R 

19. A 

1  R  .  9 

1R.  1 

* 

30N 

23.4 

23.3 

23.1 

22.9 

22. A 

22.0 

21.6 

21.3 

20. R 

19. R 

* 

* 

26N 

2S.1 

24.9 

2  A  .  S 

2  A  .  3 

23. R 

23.3 

22.9 

22.3 

21. A 

19. R 

it 

$ 

22N 

26.0 

26.6 

2  S .  2 

2  A  .  6 

2A.2 

23.9 

23.5 

22.6 

21.1 

it 

* 

1RN 

26.5 

26.3 

2  S.  7 

2  S  .  2 

2  A  .  9 

2  A  .  6 

2  A  .  0 

23.  A 

22.2 

* 

* 

* 

1  AN 

26.7 

26.7 

26.6 

26.1 

2S.7 

25.3 

2  A  .  9 

2  A  .  6 

2  A  .  5 

* 

* 

* 

ION 

26.1 

26.8 

26.9 

26.9 

26.6 

26.2 

25.9 

25. R 

25.9 

26.2 

* 

* 

6N 

* 

26.4 

26. R 

26.9 

26. H 

26.6 

26.5 

26.5 

26.6 

26.9 

26.9 

* 

2N 

* 

* 

26. S 

26.7 

26.7 

26. R 

26.6 

26.5 

26.3 

26.0 

25. R 

2S.R 

2S 

* 

* 

* 

26.7 

26.7 

26.5 

26.2 

25. R 

25. A 

25.0 

25.0 

6S 

£ 

* 

* 

* 

* 

* 

26.6 

26.1 

25.8 

25. A 

24.9 

24.4 

10S 

❖ 

* 

* 

* 

* 

26.5 

26.3 

25.7 

2  5.1 

2A.5 

23.9 

23.3 

IAS 

* 

♦ 

$ 

25. R 

25. H 

25.0 

2  A  .  1 

23.7 

22.9 

22.2 

IRS 

* 

* 

* 

* 

* 

25.3 

25.3 

2A.5 

23.6 

23.0 

22.2 

21.4 

22S 

* 

* 

* 

* 

23.9 

2  A .  5 

2A.S 

23. R 

23.0 

22.  A 

21.7 

20. ft 

26S 

* 

* 

22.1 

23. S 

23.0 

23.0 

22.9 

22.3 

21  .R 

21.3 

20.8 

30S 

* 

❖ 

19.3 

21  ,H 

20.7 

20.5 

20.6 

20. R 

20.6 

20.  1 

19.7 

19.2 

3  A  S 

❖ 

❖ 

1 R  .  6 

19.6 

1 R  .  2 

1R.1 

1R.  1 

1R.1 

1R.1 

17. R 

17.6 

16.9 

3RS 

* 

13.2 

16.6 

16. A 

15.0 

15.2 

IS.  1 

1  5.0 

1  A  .  9 

15.0 

1 A  .  6 

14.0 

4  2  S 

1  1  .R 

1  1.3 

13. H 

13.3 

12.0 

12.1 

1  1  .9 

11. R 

ll.fi 

1  1.7 

1  1.3 

10.4 

AfeS 

9.6 

9.  1 

10. A 

9.6 

R.S 

R.  1 

H.  1 

R.O 

R.2 

R.  1 

7.  1 

6.6 

SOS 

7.0 

6.0 

7.0 

6.0 

A. 7 

4.2 

A  .  0 

A  .0 

3.R 

3.5 

3.0 

2.9 

54S 

6.0 

4.9 

3  .  R 

2.S 

l.S 

1  .  A 

1.3 

1.0 

0.9 

0.  7 

0.5 

O.S 

58S 

3.3 

2.1 

0.9 

0.0 

-O.S 

-0.6 

* 

* 

* 

* 

* 

* 

62S 

* 

* 

e 

* 

* 

* 

* 

* 

* 

* 

* 

* 

66  S 

* 

* 

* 

* 

$ 

* 

* 

* 

* 

* 

* 

70S 

* 

<* 

* 

* 

* 

* 

it 

* 

* 

« 

* 

* 

7AS 

* 

* 

■» 

* 

* 

*t 

* 

* 

it 

* 

* 

7RS 

* 

* 

* 

* 

* 

*t 

* 

* 

* 

* 

* 

R2S 

* 

* 

* 

* 

* 

# 

*t 

* 

* 

it 

* 

* 

R6S 

* 

* 

$ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

90S 

* 

* 

* 

* 

* 

* 

* 

it 

* 
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Table  3.10  (cont.) 


s fa- surface  tfmpfratiirf  iofg  c) 


o  5F 


90N 

4 

* 

RftN 

* 

* 

H2N 

4 

* 

7RN 

4 

0.0 

74N 

0.4 

1.6 

70  N 

4.5 

S.S 

66N 

6.? 

6.  3 

6?N 

ft. 4 

7.2 

SRN 

9.1 

R.  1 

S4N 

4 

9.S 

SON 

?  1  .6 

* 

46N 

* 

* 

4?N 

4 

1  7.2 

3HN 

17.3 

17.4 

34N 

4 

* 

30N 

4 

■t 

?ftN 

4 

??N 

4 

* 

1RN 

* 

* 

14N 

4 

>» 

ION 

❖ 

<■ 

6N 

4 

* 

2N 

26.  1 

26.4 

?S 

25.4 

2  S  .  9 

6S 

24.4 

24.9 

10S 

23.0 

23.1 

14S 

21.6 

20.  7 

IRS 

20.9 

19.  R 

??s 

20.2 

19.3 

2ftS 

19. H 

19.1 

30S 

19.0 

1  R  .  4 

34  S 

16.9 

16.9 

3RS 

13.5 

13.3 

42S 

9.9 

9  .  R 

46S 

6.0 

S.  9 

SOS 

2.8 

2  .  R 

54S 

0.6 

0.6 

5  R  S 

4 

* 

62  S 

4 

4 

66S 

4 

* 

70S 

4 

* 

74  S 

4 

4 

7HS 

* 

4 

H2S 

4 

4 

R6S 

* 

4 

90S 

4 

4 

1  OF 

1  5  F 

20  F 

4 

* 

4 

* 

4 

4 

* 

4 

$ 

0.5 

* 

>4 

2.4 

2.9 

C 

• 

m 

6.2 

5.5 

>4 

6.3 

4 

4 

4 

❖ 

4.2 

7.6 

4 

6.1 

4 

4 

4 

4 

4 

>4 

4 

>4 

4 

17.3 

* 

4 

1ft  .0 

18.5 

4 

4 

19.6 

19.6 

* 

>4 

* 

* 

4 

4 

* 

* 

* 

4 

* 

* 

4 

* 

❖ 

4 

* 

4 

$ 

4 

* 

* 

* 

4 

* 

* 

24.4 

* 

* 

23.7 

4 

4 

20.9 

* 

* 

Ifl  .3 

* 

4 

17.8 

* 

$ 

18.0 

>4 

$ 

lft.0 

16.8 

jfe 

17.0 

17.4 

4 

14.0 

15.9 

17.9 

10. 1 

11.3 

13.3 

6.  1 

6.9 

7.6 

2.9 

3.0 

3.5 

0.6 

0.5 

0.5 

.4 

4 

* 

4 

>4 

* 

4 

4 

❖ 

* 

4 

* 

4 

* 

4 

4 

* 

4 

# 

>4 

* 

* 

* 

4 

4 

4 

>4 

25F 

3  OF 

3SF 

4 

4 

4 

>4 

4 

4 

* 

4 

4 

4 

4 

4 

2.9 

2.5 

2.2 

* 

4 

3.0 

* 

4 

4 

4 

4 

4 

>4 

4 

4 

4 

4 

4 

* 

4 

4 

❖ 

4 

4 

* 

15.3 

1  5.  3 

19.2 

4 

4 

19.6 

19.5 

1  9.  5 

>4 

4 

4 

4 

4 

26.3 

4 

4 

4 

$ 

4 

4 

4 

4 

4 

4 

4 

4 

>4 

4 

4 

* 

4 

4 

* 

4 

4 

* 

4 

4 

>4 

4 

4 

4 

4 

* 

4 

4 

4 

4 

4 

4 

4 

24.5 

4 

4 

22.6 

21.1 

21.1 

20.6 

18.1 

1ft. 0 

1  7.0 

13.3 

12.3 

11.5 

7.6 

7.  1 

6.6 

3.5 

3.4 

3.2 

0.4 

0.  3 

0.  3 

4 

4 

-0.9 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

40F 

4  5  E 

50  F 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

1.9 

1.7 

4 

2.4 

1.9 

4 

2.2 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

9.1 

4 

4 

12.3 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

26.3 

4 

4 

4 

27.7 

4 

4 

4 

4 

26.3 

4 

4 

4 

4 

4 

26.2 

4 

4 

26.7 

4 

26.7 

26.9 

4 

26.9 

2  7.0 

26.9 

26.8 

26.8 

26.7 

26.6 

4 

26.3 

4 

26.2 

25.4 

4 

25.0 

24.4 

24.0 

23.7 

22.3 

22.0 

21.4 

20.0 

19.5 

19.0 

16.5 

16.4 

16.4 

11.1 

11.1 

11.3 

6.0 

5.9 

6.  1 

2.9 

2.9 

3.1 

0.4 

0.4 

0.5 

-0.9 

-0.9 

-0.7 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

Jit 

4 

4 

4 

4 

55F 

4 

4 

* 

4 

4 

4 

4 

4 

4 

* 

* 

4 

4 

* 

* 

V* 

4 

4 

?S.H 
?ft.  1 
?ft.  1 
?ft.9 
<>7.3 
?7.S 
?7. 1 
?h.ft 
2ft.? 
?S  •  7 
?ft.7 
?3.3 
?0. 9 
1  H  .4 
1ft.  3 
1  1  .IS 
ft. 7 
3.0 
O.S 
-0.6 
* 


* 

* 

# 
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Table  3.10  (cont.) 

SR  A-SUR  F  AC  F  T  F  MP  FR  A  TOR  F  (OFT,  C) 


90N 

60  F 

£ 

6  6  F 
* 

8  6N 

* 

R  2N 

7RN 

* 

❖ 

74N 

« 

* 

7  ON 

❖ 

66N 

* 

62N 

* 

* 

58N 

* 

54N 

* 

50N 

❖ 

* 

46N 

9.1 

* 

42N 

* 

* 

3RN 

* 

34N 

30N 

J; 

if 

26N 

❖ 

22N 

2  b .  0 

?  6 . 6 

1RN 

26.2 

?  7  .  ? 

1  4N 

26.4 

?  7 . 3 

ION 

27.0 

?  7 . 6 

6N 

27. S 

?  7 . 8 

?N 

27.6 

?  7 . 8 

2  S 

27.6 

?  7 . 7 

6  S 

27.4 

?  7 . 6 

10S 

26.7 

?  6 . 8 

14S 

26. 1 

?6 . 0 

IRS 

2S.S 

?  6 . 3 

22S 

24. S 

?  4  .  3 

26  S 

23.0 

?  ?  •  8 

30S 

20.  S 

?0.  1 

34  S 

1  7.8 

17.4 

3HS 

16.0 

16.  1 

42S 

1  1  .R 

1  ?  .  1 

46S 

7.1 

7.? 

SOS 

3.0 

3  .0 

b4S 

O.S 

0.6 

bHS 

-0.6 

-0.4 

62S 

a 

* 

66  S 

a 

70S 

* 

* 

74  S 

$ 

* 

78  S 

a 

>1* 

H2S 

a 

* 

HRS 

* 

* 

90S 

a 

sjf 

70F 

76  F 

80F 

<* 

<* 

if 

if 

J|C 

* 

if 

a 

❖ 

if 

a 

if 

a 

❖ 

if 

!> 

* 

if 

* 

* 

if 

* 

if 

if 

if 

if 

it 

if 

it 

it 

it 

■t 

it 

if 

if 

if 

a 

it 

if 

* 

if 

is 

if 

if 

it 

26. S 

if 

it 

27.  b 

if 

if 

27.6 

# 

•X 

27.9 

?8 . 0 

it 

2  R  .  0 

?  8 . 1 

?8  ,  ? 

2H.0 

?  8  .  1 

28.1 

27. fl 

?  7 . 9 

?  7  •  9 

27. S 

?  7 . 6 

?  7.6 

26.9 

?  7 . 0 

?  7 . 1 

26.0 

?  6 . 9 

?  6 . 8 

2  6.1 

?4.9 

?4 . 7 

24.1 

?  3 . 6 

?  3 . 3 

22.2 

?1  .8 

?1  .6 

19.7 

19.6 

19.? 

17.2 

17.0 

16.7 

14.9 

14.6 

14.3 

12.2 

1?.? 

11.9 

7.2 

7.3 

7.4 

3.2 

3.3 

3.6 

0.7 

0.9 

1.1 

-0.3 

-o.i 

0.  1 

£ 

* 

if 

* 

* 

if 

$ 

# 

it 

* 

if 

# 

* 

* 

if 

if 

* 

* 

it 

* 

* 

R  6  6 

90F 

96E 

if 

* 

* 

if 

if 

it 

if 

if 

if 

if 

* 

if 

if 

❖ 

* 

if 

if 

if 

if 

it 

it 

if 

* 

it 

if 

if 

if 

if 

if 

if 

if 

if 

* 

it 

it 

it 

it 

if 

if 

if 

it 

if 

if 

it 

it 

it 

if 

it 

it 

* 

it 

if 

?6.6 

i 

?7.4 

?  7 . 7 

* 

2  7.7 

?  7 . 9 

?H  .  ? 

?  8 . 0 

?H.  1 

?  8  •  3 

?«.? 

?  8  .  ? 

?8 . 3 

?  8  .  1 

?8  •  1 

?  8  .  ? 

?  7 . 9 

?  7 . 9 

c 

. 

X 

?  7 . 6 

27.7 

27.7 

?7.1 

27.? 

27.2 

?  6 . 7 

?  6 . 7 

2  S  .  H 

?4 . 6 

?  4 . 6 

24.4 

?  3  .  1 

?  ?  •  9 

22.7 

?1.? 

?Q  •  9 

20.7 

1  R  .8 

18.6 

1  R.  b 

16.6 

16.3 

16.1 

14.  () 

13.9 

1  3.9 

1  1.8 

11.7 

11.7 

7.6 

7.7 

7.H 

3.8 

4.0 

4.3 

1.6 

1.7 

2.0 

0.? 

0.3 

0.4 

$ 

* 

* 

* 

# 

* 

* 

* 

jjt 

$ 

■> 

<* 

* 

* 

* 

*  a  a 


100F 

a 

a 

a 

i 

if 

if 

i 

* 

if 

if 

# 

if 

* 

* 

it 

* 

$ 

# 

?8.6 

$ 

$ 

?8.  1 
?7.R 
?7  •  3 
?6.9 
?4.4 
??.6 
?0.6 
18.6 
16.4 
1  3  •  R 
11.7 
7.9 
4.6 
?.? 
0.6 
# 

* 

$ 

❖ 

* 


1066  1 1  OF 

*  * 

*  * 

*  # 

#  jjt 

*  * 

#  * 

#  * 

#  * 

#  * 

*  * 

*  $ 

#  * 

*  * 

*  * 

#  * 

*  ?6. 7 

*  ?6.7 

*  ?7.  7 

?8.3  ?8.1 

?H.?  ?8.? 

*  ?8.1 

2H.0  ?8.1 

?7.6  ?7.7 

?6.?  ?6.8 

?*.7  ?6.3 

2?. 7  23.? 

21.0  ?  1 . 6 
18.9  19.3 

16.6  17.1 

13. 8  13.9 

11.7  1  1  .« 

8.0  8.1 

4.7  6.0 

2.4  ?  •  6 

0.6  0.7 

*  * 

*  * 

*  # 

#  * 

*  * 

*  * 

*  * 

*  * 


1  166 
* 

* 

* 

$ 

* 

* 

* 

* 

# 

* 

?3.8 

26.7 
27.? 
27. R 
?  7 . 9 

# 

* 

28.1 
27. R 
2  7.? 
?6 . 3 
# 

# 

19.8 
17.4 
14.? 

1  1  .9 

8. 7 
6.6 
3.0 
0.8 
if 
* 

* 

* 

* 

* 
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Table  3.10  (cont.) 


SFA-SORFACft  TFMPFRATIIRF  (DFf;  C) 


90N 

1  2  OF 

ft 

126F 

* 

RRN 

* 

ft 

R2N 

* 

ft 

78N 

* 

ft 

7AN 

* 

ft 

70  N 

ft 

ft 

RRN 

ft 

ft 

R2N 

* 

ft 

bftN 

* 

ft 

bAN 

ft 

ft 

bON 

ft 

ft 

ARN 

* 

ft 

A2N 

ft 

ft 

38N 

12.0 

ft 

3AN 

1  A.  A 

1  A  .  R 

30M 

* 

1R  .H 

2RN 

20.8 

2  A .  0 

22N 

2  b .  0 

2R.1 

lftN 

27.7 

27.7 

IAN 

ft 

2H.1 

ION 

2H.  1 

ft 

RN 

2  R  .  2 

2  fl  .  2 

2N 

2R.2 

2H.2 

2  S 

2  H .  2 

2  R  .  2 

RS 

2R.  1 

2R.  1 

10S 

27.9 

2H.0 

IAS 

27.3 

27.3 

IRS 

2  R  .  A 

if 

22S 

ft 

2RS 

ft 

ft 

30S 

if 

3AS 

* 

17. R 

3MS 

1  A  .  b 

1  A  .  R 

A  2  S 

12.0 

12.1 

AMS 

R.4 

4.0 

bOS 

b  .  9 

R.l 

bAS 

3.3 

3  .  b 

b  R  S 

0.9 

1  .0 

R2S 

* 

-O.fl 

MRS 

ft 

ft 

70S 

ft 

ft 

7AS 

jfl 

ft 

78  S 

ft 

ft 

82  S 

ft 

ft 

RRS 

ft 

ft 

90S 

ft 

ft 

130ft 

135F 

1 40F 

* 

# 

ft 

ft 

ft 

ft 

if 

ft 

ft 

ft 

ft 

ft 

if 

ft 

if 

ft 

ft 

if 

if 

ft 

if 

if 

ft 

if 

ft 

ft 

if 

it 

.A 

T 

if 

ft 

ft 

if 

if 

6.1 

if 

10.3 

11.3 

13.n 

1  A  .  0 

* 

1R.R 

if 

19.6 

22.0 

22.8 

??.h 

2  A  .  9 

2 A.  7 

?4.6 

2  R .  2 

2R.1 

?6.1 

2  7.7 

27. R 

?7.6 

2R  .0 

2  8.0 

?7.9 

2R  .  1 

28.3 

?fi.3 

2H.2 

28. A 

?fi.6 

2  R  .  3 

28. b 

?H.H 

2  8.2 

28. 3 

?H.6 

28.1 

28.2 

* 

28 .0 

28.0 

? 7 .6 

ft 

ft 

?7.4 

£ 

if 

$ 

if 

it 

* 

if 

if 

* 

if 

ft 

* 

1  7.R 

1  7.R 

* 

1  A.  7 

1A.H 

14.9 

12.2 

12.3 

1^.7 

9.  3 

9.8 

10.3 

7.0 

7  .  b 

7.9 

A.  0 

A  .  R 

6.0 

1.3 

1  .R 

1  .H 

-0.7 

-O.R 

-0.4 

ft 

ft 

ft 

* 

>:= 

ft 

ft 

ft 

ft 

* 

ft 

ft 

ft 

ft 

ft 

# 

ft 

ft 

ft 

ft 

1ASF 

ft 

* 

ft 

ft 

ft 

* 

* 

ft 

if 

3.0 
A  .  0 
A.  1 

ft 

1  A  „b 

14.7 
22.3 

.R 
2R.  ) 
27. A 
27. ft 
28.2 

28.8 

24.  1 

2  R  .  7 

ft 

2  7.b 
2  4.4 

ft 

ft 

ft 

ft 

ft 

]*>.() 

* 

10. y 

8.4 

6.4 

?.? 

* 

❖ 

* 

* 

ft 

ft 

* 


1  bOF 

lbbE 

lROft 

* 

tf 

* 

li¬ 

if 

if 

ft 

it 

if 

if 

ft 

if 

if 

ft 

if 

* 

ft 

if 

* 

i 

if 

ft 

* 

if 

if 

* 

if 

3.1 

* 

if 

A. 2 

A.  b 

A. 9 

A.R 

R  .  R 

R.b 

9.3 

10.  3 

11.3 

lb.b 

1 R  .  0 

1R.  1 

19.8 

19.8 

19.7 

22.2 

22.2 

22.1 

2  A  .  8 

2  A  .  b 

2  A  .  4 

2R.  1 

2R.  1 

2R.0 

27.3 

27.2 

27.1 

27.7 

27.7 

27. b 

28.1 

2  8.0 

27.9 

28.8 

28. b 

28.3 

29.2 

29.  1 

28.8 

28.9 

29.1 

29.  1 

28.4 

28. R 

28.9 

ft 

28 .0 

28.2 

2R.2 

26.  R 

2R.R 

2A.V 

2b. 2 

2b. b 

23.7 

23.9 

2  A.  1 

if 

22  .8 

23.3 

* 

2  1.0 

21.0 

it 

18.8 

18. R 

lb.? 

1  b.  A 

1  b.  b 

1  3. A 

13.8 

1  A  .  ] 

1  1  .  A 

11.8 

12.1 

9.0 

9.1 

9.2 

b  .  7 

b.R 

b  .  9 

2.3 

2. A 

2  .  b 

* 

0.  0 

0.0 

ft 

it 

* 

$ 

ft 

ft 

* 

ft 

* 

ft 

ft 

* 

* 

i 

* 

* 

i< 

* 

$ 

ft 

* 

IRbft 

1  70F 

1  7bft 

* 

* 

it 

ft 

* 

ft 

$ 

* 

it 

ft 

ft 

ft 

ft 

if 

* 

* 

ft 

it 

$ 

if 

if 

ft 

if 

ft 

2.1 

2  .  b 

2.7 

3  .  b 

3.7 

3.9 

b.  1 

b  ,  3 

b.b 

7.1 

7. A 

7  .  R 

11.3 

11.3 

11.3 

1R.0 

lb. 7 

lb.b 

19. R 

1  9.  3 

19.0 

22.0 

21.9 

21.8 

2  A  .  A 

2A.? 

2A.  1 

2b. 8 

2b. R 

2b. b 

2R.9 

2R .  7 

26  .  b 

27. A 

27.2 

27.1 

27.8 

27.  7 

2  7  •  R 

28.1 

27.9 

27.8 

28.4 

28.2 

28.0 

28.8 

28. A 

28.2 

29.0 

28.8 

28.  A 

28.4 

28  .A 

28. A 

27.0 

27.2 

27.3 

2b. 8 

2b. 8 

2b. 8 

2A.  3 

2A.2 

2A.  I 

22.7 

22.2 

22.1 

20.  3 

19.7 

19.7 

17.7 

17. b 

17. b 

lb.b 

lb.  A 

* 

1  A. 3 

ft 

1A.2 

11.8 

11.8 

12.2 

9.0 

8  .b 

8.0 

b.  7 

b.R 

b  .  A 

2  .  b 

2  •  b 

2  .  R 

0.0 

0.0 

-0.1 

if 

* 

* 

if 

if 

* 

if 

if 

if 

ft 

ft 

if 

i 

ft 

it 

i 

ft 

i 

if 

ft 
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IV.  MODEL  PERFORMANCE 


A.  OPERATING  CHARACTERISTICS 
1.  Integration  Program 

The  Mintz-Arakawa  two-level  model  is  written  in  IBM  FORTRAN  IV 
(see  program  listing,  Chapter  VII).  The  core  size,  central  processing 
unit  (CPU)  time,  and  the  input/output  (I/O)  requirements  are  based 
on  experience  with  the  FORTRAN  H  compiler  on  an  IBM  360/91  at  UCLA  for 
a  46-by-72  array.  The  model  uses  about  400,000  bytes  of  core  memory, 
and  each  simulated  day  requires  about  25  minutes  of  CPU  time  and  about 

1000  I/O  requests.  All  calculations  are  performed  with  single-precision 
arithmetic. 

The  program  in  its  present  form  is  expected  to  start  from  nonzero 
initial  data,  and  the  history-restart  tape  is  used  to  provide  the  ini¬ 
tial  values  for  continuing  the  calculations.  The  time  to  restart  is 
specified  by  the  parameters  TAUID  and  TAUIH  (see  the  control-card  se¬ 
quence  below).  The  tape  is  read  until  the  last  record  is  reached  or 
until  TAU  from  tape  (expressed  in  hours)  is  less  than  or  equal  to 
TAUIH  +  24 -TAUID.  If. the  last  record  on  the  tape  (identified  by  -TAU) 
is  reached  before  the  specified  time  to  restart,  the  last  set  of  data 
will  be  used.  This  allows  automatic  continuation  of  the  calculation 
from  the  last  time  data  were  stored  on  the  tape. 

The  input  parameters  TRST  and  TERM  control  the  disposition  of  the 
old  and  new  sets  of  data.  If  TRST  =  0,  the  newly  computed  data  will 
be  written  on  the  old  history-restart  tape  as  if  no  interruption  had 
occurred;  otherwise,  the  new  data  are  written  at  the  beginning  of  a 
different  tape.  If  TRST  4  0,  the  parameter  TERM  determines  whether 
the  old  history-restart  tape  is  to  be  terminated  after  the  restart  data 
are  read  from  it.  If  TERM  -  0,  the  old  tape  is  not  terminated.  The 
data-set  reference  number  of  the  tape  to  be  written  is  always  11.  If 
TRST  4  0,  the  initial  data  is  read  from  data-set  reference  number  10. 

Various  control  parameters  and  constants  in  the  program  are  read 
from  cards,  although  several  of  the  parameters  that 


are  read  in  the 
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model's  present  version  no  longer  influence  the  program.  The  topography 
deck  following  card  number  fourteen  (MARK)  is  read  only  if  a  change  is 
desired  in  sea-surface  temperature,  land  elevation,  or  the  assigned 
distribution  of  ice.  All  numerical  values  follow  the  standard  FORTRAN 
convention  except  KAPA,  which  is  a  real  number.  Only  the  constants 
NCYCLE,  NC3,  JM,  IM,  MARK,  LDAY ,  LYR,  and  the  sequence  numbers  in  the 
topography  deck  are  in  integer  format.  The  control-card  sequence  and 
layout  are  as  follows: 


Card  Card 


Number 

Name 

Columns 

Uni  ts 

Description 

1 

ID 

1-4 

— 

Four-character  identifier 

1 

XLABL 

5-40 

— 

Thirty-six-character  identifier 

2 

TAUID 

1-10 

day 

Day  to  start  ) 

f  start  time  ■» 

2 

TAUIH 

11-20 

hour 

Hour  to  start  j  IAUIH  +  24-TAUID 

2 

TRST 

21-30 

— 

Output-tape  control  parameter  )  see  re 

2 

TERM 

31-40 

— 

>  start 

Output-tape  control  parameter  )  pro  cedi 

3 

TAUO 

1-10 

— 

Not  used 

3 

TAUD 

11-20 

hour 

Frequency  to  recompute  solar 
declination 

3 

TAUH 

21-30 

hour 

Frequency  to  write  history-restart 
tape 

3 

TAUE 

31-40 

day 

Time  to  stop  computation 

3 

TAUC 

41-50 

— 

Not  used 

4 

DTM 

1-10 

min 

Time  step 

4 

NCYCLE 

11-15 

IS(1) 

Time  extrapolation  control  parameter 

4 

NC3 

16-20 

is^ 

Frequency  to  call  COMP  4  and  COMP  3 

5 

JM 

1-5 

— 

Number  of  N-S  grid  points  (in  ir  grid) 

5 

IM 

6-10 

— 

Number  of  E-W  grid  points  (in  tt  grid) 

5 

DLAT 

11-20 

deg 

Distance  between  N-S  grid  points 

6 

AX 

1-10 

— 

Diffusion  coefficient  (not  used) 

(1) 


The  IS  unit  is  one  integration  time 


step . 
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Card  Card 

Number  Name  Columns  Uni ts  Description 


7 

FMX 

1-10 

in"5  -1 

10  sec 

Shear-stress  coefficient 

7 

ED 

11-20 

m 

Constant  used  in  air/ground 
interaction 

7 

TCNV 

21-30 

sec 

Relaxation  time  for  cumulus  con¬ 
vection 

8 

RAD 

1-10 

km 

Earth  radius,  a 

8 

GRAV 

11-20 

-2 

m  sec 

Gravitational  acceleration,  g 

8 

DAY 

21-30 

hour 

Length  of  day 

9 

RGAS 

1-10 

2  .  -1 
m  deg  _2 

sec 

Gas  constant,  R 

9 

KAPA 

11-20 

— 

Thermodynamic  coefficient,  < 

10 

PSL 

1-10 

mb 

Sea- level  pressure 

10 

PTR0P 

11-20 

mb 

Tropospheric  pressure,  pT 

11 

PSF 

1-10 

mb 

Surface  pressure,  p 

12 

DLIC 

1-10 

— 

s 

Not  used 

13 

KSET 

1-10 

— 

Not  used 

14 

MARK 

1-3 

Flag  indicating  presence  of  topog¬ 
raphy  deck  (sea-surface  temper¬ 
ature  and  land  elevation)  and 
number  of  sets  of  cards  to  be 
read.  In  46-by-72  grid  version, 
MARK  =  72. 

15-376 

Topography  Deck 

—  see  description  below. 

377 

CLKSW 

1-4 

If  the  characters  0FF  are  punched 
in  columns  1  to  3  with  column  4 
blank,  the  solar  declination  will 
remain  fixed. 

377 

RSETSW 

11-14 

If  the  characters  RESE  are  punched 
in  columns  1  to  4,  the  day  and 
year  counters  (SDEDY  and  SDEYR) 
will  be  set  to  LDAY  and  LYR. 

377 

LDAY 

21-23 

day 

Day  of  year  if  time  is  reset 

377 

LYR 

31-34 

year 

Year  if  time  is  reset 

The  topography  deck  is  read  only  If  MARK  *  0.  The  deck  contains 
2  +  5  •  MARK  cards  and  is  read  in  subroutine  IN1T  2.  The  topography 
deck  card  layout  is  as  follows: 
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Number 

of  Cards 

Name 

Description 

1 

3 -HARK 


1 


2 -MARK 


TEMSCL 


Sea-surface 

temperature 


Four  characters  in  columns  1  to  4.  Indicates 
temperature  scale  of  sea-surface  tempera¬ 
ture:  FAHR  =»  Fahrenheit,  CENT  =*  centigrade. 

'MARK'  is  the  number  of  three-card  sets  that 
define  the  ocean  temperature  for  each 
longitude,  beginning  at  the  south  pole  and 
extending  north.  For  the  46-by-72  grid, 
the  numbers  each  take  four  columns  (a  deci¬ 
mal  point  is  implicit  between  the  third 
and  fourth  columns) ,  with  fifteen  numbers 
on  the  first  and  second  cards  and  sixteen 
numbers  on  the  third  card.  The  longitude 
grid  number  (i  =  1-72)  is  in  columns  79 
and  80  of  each  card  of  a  set,  and  must  be 
sequential.  Special  numbers  indicate  points 
that  are  not  open  ocean:  -640  for  land 
without  ice,  and  -960  for  land  ice  or  sea 
ice. 


HSCL 


Land 

elevation 


Four  characters  in  columns  1  to  4.  Indicates 
distance  scale  of  land  elevation:  FEET  = 
feet/100,  METE  =  meters/10. 

'MARK'  is  here  the  number  of  two-card  sets 
that  define  the  land  elevation  for  each 
longitude,  beginning  at  the  south  pole  and 
extending  north.  For  the  46-by-72  grid, 
the  numbers  each  take  three  columns  (a  deci¬ 
mal  point  is  implicit  following  the  third 
column),  with  twenty-five  numbers  on  the 
first  card  and  twenty-one  numbers  on  the 
second  card.  The  longitude  grid  number 
(i  =  1-72)  is  in  columns  79  and  80  of 
each  card  of  a  set,  and  must  be  sequential. 
The  elevations  must  be  in  either  hundreds 
of  feet  or  tens  of  meters.  The  entries  in 
this  deck  corresponding  to  sea  surface  must 
be  zero  or  blank. 


The  principal  output  of  the  model  is  written  on  magnetic  tape,  and 
a  history-restart  tape  is  written  at  specified  intervals.  Eighteen 
logical  records  are  written  with  a  frequency  of  TAUH :  TAU  and  C,  P,  U, 

V,  T,  Q3,  T0P0G ,  PT,  GW,  TS ,  GT,  SN,  TT,  Q3T,  SI),  H,  TD,  -TAU  and  c! 

These  arrays  contain  all  constants  and  current  variables,  and  in  addi¬ 
tion,  several  arrays  of  packed  data  generated  in  subroutine  COMP  3.  [Note 
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that  TS  is  equivalent  to  UT(1,1,2)  and  SN  is  equivalent  to  VT(1,1,2) 
in  the  data  from  subroutine  COMP  3.]  +  In  the  present  version  of  the 
model  these  records  are  written  on  tape  every  6  hours  (=  TAUH) .  The 
last  logical  record  (-TAU.C)  is  identified  as  the  last  record  written 
on  the  tape,  and  will  be  written  over  the  next  time  the  tape  is  written; 
hence,  only  seventeen  records  are  saved  every  TAUH.  A  test  is  made 
before  writing  the  tape  to  determine  if  it  is  properly  positioned. 

About  sixty  sets  of  seventeen  logical  records  can  be  saved  on  a  2400-ft 
reel  of  tape.  The  automatically  printed  output  consists  of  the  input 
parameters,  the  time  at  each  integration  step,  and  the  amount  of  pres¬ 
sure  added  at  each  grid  point  every  twenty-four  hours  of  simulated 
time  in  the  subroutine  GMP. 


2.  Map-Generation  Program 

The  map-generation  program  for  use  with  the  model  uses  about 
520,000  bytes  of  core,  and  averages  about  0.2  seconds  of  CPU  time  and 
about  5  I/O  requests  for  each  map  generated.  This  program  reads  the 
data  produced  by  the  model  and  processes  them  to  form  arrays  of  data 
In  map  form.  The  source  of  the  basic  data  may  be  tape  or  disk. 

The  tape  input  format  is  the  same  as  the  tape  output  from  the 
model:  TAU  and  C,  P,  U,  V,  T,  Q3,  T0P0G,  PT,  GW,  TS,  GT,  SN,  TT,  Q3T, 
SD,  H,  TD.  The  first  logical  record  on  a  disk  is  always  T0P0G,  which 
does  not  change  during  a  run.  The  subsequent  logical  records  for  each 
time  step  that  was  saved  are  TAU  and  C,  P,  U,  V,  T,  Q3,  PT,  GW,  TS,  GT, 
SN,  TT,  Q3T,  SD. 

The  card  input  to  the  map-generation  program  consists  of  an  in¬ 
terval  and  data-source  control  card,  followed  by  as  many  as  ninety-nine 
map  selection  cards.  The  end  of  the  map  selection  card  deck  is  indi¬ 
cated  bv  a  blank  card.  The  interval  and  data-source  control  card  con¬ 
tains  T0  (the  time,  in  days,  to  start  generating  the  map  arrays),  TEND 
(the  time,  in  days,  to  stop  generating  the  map  arrays),  and  TAPIN  (the 
data-source  indicator).  The  card  layout  is  as  follows: 


a/t  t  vs  3frays  may  be  referred  to  by  different  names.  For  example, 
Q(J,  I,K)  contains  tt,  Ul,  U3,  VI,  V3,  Tl,  T3,  and  Q3  for  K  -  1  through 

«.  See  the  common  and  equivalence  block  in  Chapter  VII  for  more  detail 
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Card 


Parameter 

Columns 

T0 

1-10 

TEND 

11-20 

TAPIN 

21-24 

The  desired  maps  will  be  generated  for  T0,  TEND,  and  for  each  inter¬ 
mediate  time  available  from  the  data  source.  If  the  characters  TAPE 
are  punched  in  columns  21  to  24  (TAPIN) ,  the  data  source  is  a  tape; 
otherwise  the  source  is  assumed  to  be  a  disk. 

The  map  selection  cards  contain  MAPN0  (the  map  number)  and  SURF 
(the  a  surface,  <  2.0,  or  the  pressure  level,  in  millibars,  at  which 
the  map  is  to  be  calculated).  The  card  layout  is  as  follows: 

Card 

Parameter  Columns 

MAPN0  1-2 

SURF  3-12 

Some  values  of  SURF  are  not  valid  for  certain  maps,  and  in  some  cases 
the  following  convention  has  been  used: 

topography  maps:  SURF  <2,0  for  ocean  temperature 
SURF  a  2.0  for  surface  elevation 

cloudiness  maps:  SURF  s  0.5  for  high  cloudiness 
SURF  ■  1.0  for  low  cloudiness 
0.5  <  SURF  ?  1,0  for  middle  cloudiness 
SURF  >  1.0  for  cloudiness  (maximum) 

The  processed  data  representing  each  requested  map  array  are 
written  on  tape  along  with  various  other  data,  and  the  tape  may  be 
used  for  further  processing  and  map  displays.  The  map  array  is  dimen¬ 
sioned  (JM,  IM) ,  where  JM  is  the  total  number  of  north/south  grid  points 
and  IM  is  the  total  number  of  east/west  grid  points.  One  logical 
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record  is  written  for  each  map,  and  contains  the  following  data: 


Name  and 
Dimension 

TAU  (1) 

ID  (1) 

MAPN0  (1) 
NAME  (13) 
SURF  (1) 

STAGI  (1)1 
STAGJ  (1)( 

SINT  (1) 

W0RK2  (JM.IM) 

ZM  (JM) 

ZM2  (JM) 

ZMM  (1) 


Description 
Time  in  hours 

Four-character  identification  from  the  model 
Map  number 
Map  title 

Sigma  surface  or  pressure  level  for  which  the  map 
is  generated 

Logical  variables  indicating  whether  the  maps  arc 
staggered  (offset)  in  the  I  and  J  directions 

Not  used  in  the  present  version 

Map  array 

Zonal  mean 

Zonal  mean,  excluding  points  on  land  or  ice 
Global  mean 


The  printed  output  consists  of  the  input  parameters,  along  with  the  map 
time,  number,  surface  or  level,  and  map  title  of  each  record  as  written 
on  the  tape. 


B.  SAMPLE  MODEL  OUTPUT 

1.  Maps  of  Selected  Vartan les 

To  illustrate  the  general  nature  and  structure  of  the  solutions 
of  the  circulation  model,  a  series  of  programmed  map  outputs  for 
selected  variables  lias  been  developed  (see  Map  Routine  Listing  in 
Chapter  VII).  Presented  here  are  samples  of  tills  output  for  the  pri¬ 
mary  dependent  variables  ps,  ,  u3>  Ty  and  (as  repre¬ 

sented  by  the  relative  humidity),  and  for  the  gcopotential  heights. 

A  selection  of  variables  related  to  the  heat  and  water  balance  in  the 
model  layers  and  at  the  surface  is  also  given.  These  data  arc  for 
day  400  (28  January,  hour  0  GMT)  of  a  basic  or  control  simulation  of 
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northern-hemisphere  winter,  with  the  program  as  listed  in  Chapter  VII 
and  with  the  fixed  sea-surface  temperature  and  ice  distributions  as 
shown  in  Chapter  III. 

For  each  of  the  maps  shown  below,  a  brief  identification  and 
description  of  the  mapped  quantity  is  given  on  the  facing  page,  while 
the  values  of  the  minimum  and  dashed  isolines  and  of  the  isoline  inter 
val  are  given  at  the  upper  right  of  each  map’s  label.  The  symbols  H 
and  L  designate  locations  of  local  maxima  and  minima,  respectively, 
that  are  not  resolved  by  the  selected  isoline  interval.  A  rectangular 
map  representation  of  the  spherical  grid  has  been  used  for  convenience 
with  the  points  of  the  it  grid  and  continental  outlines  shown  as  in 
Fig.  3.12.  For  each  map  the  designation  S/P  denotes  the  a  level  of 
the  map,  with  S/P  *  1  for  those  maps  without  a  level  designation  as 
well  as  for  the  surface.  The  velocity,  temperature,  and  geopotential 
heights  may  be  generated  for  any  0  s  o  5  1  by  extrapolation  and  in¬ 
terpolation  from  the  solutions  at  o  *  1/4  and  o  =>  3/4,  and  may  also 
be  displayed  for  any  pressure  surface  pT  s  p  <;  pg  (see  Map  Routine 
Listing,  Chapter  VII).  The  complete  list  of  available  maps  is  given 
in  Chapter  VII  Just  before  the  map  code  listings 

Those  maps  listed  in  Table  4.1  are  given  in  o  coordinates,  with 
the  exception  of  the  geopotential  height  in  Map  6,  which  is  given  for 
both  o  and  p  surfaces. 
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Table  4.1 

LIST  OF  HAPS  OF  SELECTED  VARIABLES 


Map 


Title 


1  Smoothed  sea-level  pressure  (o  «  1) 

2  Zonal  (west/east)  wind  component  (a  -  1/4,  3/4) 

3  Meridional  (south/north)  wind  component  (a  -  1/4,  3/4) 


4 

Temperature  (o  -  1/4,  3/4) 

6 

Geopotential  height  (a  -  1/4,  3/4;  p  -  400, 

800  mb) 

8 

Total  diabatic  heating  (o  ■  1/4,  3/4) 

9 

Large-scale  precipitation  rate 

10 

Sigma  vertical  velocity  (a  ■  1/2) 

11 

Relative  humidity  (o  ■  3/4) 

12 

Precipitable  water 

13 

Convective  precipitation  rate 

14 

Evaporation  rate  (o  -  1) 

15 

Sensible  heat  flux  (o  ■  1) 

16 

Lowest-level  convection  (o  ■  1) 

19 

Long-wave  heating  in  layers  (a  -  0  to  1/2,  o 

-  1/2  to  1) 

20 

Short-wave  absorption  (heating)  in  layers  (a 
a  ■  1/2  to  1) 

-  0  to  1/2, 

22 

Surface  short-wave  absorption  (a  *  1) 

23 

Surface  air  temperature  (o  ■  1) 

24 

Ground  temperature  (o  ■  1) 

25 

Ground  wetness  (o  ■  1) 

26 

Cloudiness  (high,  middle,  low) 

28 

Total  convective  heating  in  layers  (o  -  0  to 
o  =  1/2  to  l) 

1/2, 

29 

Latent  heating  (a  -  1/2  to  1) 

30 

Surface  long-wave  cooling  (a  *  1) 

31 

Surface  heat  balance  (o  ■  1) 
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Fig.  4.1.  Smoothed  Sea-Level  Pressure  (Map  1) 
(mb  -  1000  mb) 

This  map  is  calculated  from  the  expression 


P 


s 


-  1000  mb 


where  pg  is  the  surface  pressure,  ^  is  the  geopotential  at  the  ground, 
R  is  the  dry-air  gas  constant,  and  T  is  the  average  temperature  between 
level  4  and  sea  level,  given  by 


T  + 

4  +  2 


1  y*4 


3  1 

Here  T^  =■  —  is  the  air  temperature  extrapolated  to  the  sur¬ 

face,  g  is  acceleration  of  gravity,  and  y  is  an  assumed  constant  lapse 
rate  in  the  hypothetical  layer  between  the  earth's  surface  and  sea  level, 
taken  here  as  y  =  0.6  deg  C/100  m.  The  resulting  sea— level  pressures 
are  then  averaged  over  the  local  9  points  at  which  pressure  is  computed. 
At  nonpolar  points  this  smoothing  operator  is 


(  ) 


00,  smoothed  16 


<  '-22  +  2(  >02 


+  <  >22  +  2<  >-20  +  “  >00  +  2<  >20 


+  <  >-2-2  +  2<  >0-2  +  (  >2-2] 


where  the  subscripts  (in  TT-centered  notation)  refer  to  adjacent  points 
of  the  it  grid  (see  Fig.  3.6). 
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Flg.  4.2.  Zonal  (West/East)  Wind  Component  (Map  2) 

(m  sec 


This  map  is  calculated  from  the  expression 


with  0  £  a  g  1  an  arbitrary  o  surface.  For  c?  =  1/4  and  o  =  3/4  this 
reduces  to  the  primary  variables  u^  and  u^ ,  respectively,  and  for  other 
a  represents  a  linear  extrapolation  and  interpolation  of  u  in  o  (or  p) 
space.  The  zonal  wind  component  may  also  be  generated  for  an  arbitrary 
pressure  surface  p,  in  which  case  o  in  the  above  expression  is  replaced 
by  (p  -  pt)/(ttU),  where  irU  is  the  average  of  tt  at  the  four  ir  points 
surrounding  each  u ,v  point.  The  symbols  E  and  W  designate  locations 
of  local  maxima  of  positive  (eastward)  and  negative  (westward)  zonal 
wind  speed,  respectively,  which  are  not  resolved  by  the  selected  isoline 
interval . 


Level  shown  in  map  at  right:  o  -  1/4. 
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Thls  map  is  calculated  from  the  expression 

u  =  2  u3(0  _  1)  +  Ul(|-  a) 

with  0  s  o  s  1  an  arbitrary  o  surface.  For  a  =  1/4  and  o  ■  3/4,  this 
reduces  to  the  primary  variables  ul  and  u3 ,  respectively,  and  for 
other  o  represents  a  linear  extrapolation  and  interpolation  of  u  in 
0  (°r  P)  sPace.  The  zonal  wind  component  may  also  be  generated  for 
an  arbitrary  pressure  surface  p,  in  which  case  a  in  the  above  expres¬ 
sion  is  replaced  by  (p  -  p^, ) /  (tt  ),  where  ttU  is  the  average  of  tt  at  the 
four  tt  points  surrounding  each  u,v  point.  The  symbols  E  and  W  designate 
locations  of  local  maxima  of  positive  (eastward)  and  negative  (westward) 
zonal  wind  speed,  respectively,  which  are  not  resolved  by  the  selected 
isoline  interval. 


Level  shown  in  map  at  right:  a  =  3/4. 


Fig.  -t.3  —  Zonal  (u)  w 
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4.4.  Meridional  (South/North)  Wind  Component  (Map  3) 

(m  sec  ■*") 

The  map  is  calculated  from  the  expression 

v.2[v3(0-i)  +Vi(3.o)] 

with  Osaslan  arbitrary  a  surface.  For  a  -  1/4  and  a  =  3/4,  this 
reduces  to  the  primary  variables  V;L  and  v3>  respectively,  and  for 
other  a  represents  a  linear  extrapolation  and  interpolation  of  v  in 
o  (or  p)  space.  The  meridional  wind  component  may  also  be  generated 
for  an  arbitrary  pressure  surface  p,  in  which  case  a  in  the  above 
expression  is  replaced  by  (p  -  PT)/(nU),  where  ,U  is  the  average  of 
tt  at  the  four  *  points  surrounding  each  u,v  point.  The  symbols  N  and 
S  designate  locations  of  local  maxima  of  positive  (northward)  and 
negative  (southward)  meridional  wind  speed,  respectively,  which  are 
not  resolved  by  the  selected  isoline  interval. 


Level  shown  in  map  at  right:  a  =  1/4. 
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Flg.  4.5.  Meridional  (South/North)  Wind  Component  (Map  3) 


(m  sec 


This  map  is  calculated  from  the  expression 

v  ’ 2  [v3  ( °  -  i ) +  \  (f  -  ° )] 

with  0  £  a  £  1  an  arbitrary  a  surface.  For  o  =  1/4  and  o  =  3/4,  this 
reduces  to  the  primary  variables  v1  and  v3 ,  respectively,  and  for 
other  o  represents  a  linear  extrapolation  and  interpolation  of  v  in 
a  (or  p)  space.  The  meridional  wind  component  may  also  be  generated 
for  an  arbitrary  pressure  surface  p,  in  which  case  o  in  the  above 
expression  is  replaced  by  (p  -  p^, )  / ( tt  ),  where  ttU  is  the  average  of  ti 
at  the  four  n  points  surrounding  each  u,v  point.  The  symbols  N  and  S 
designate  locations  of  local  maxima  of  positive  (northward)  and  nega¬ 
tive  (southward)  meridional  wind  speed,  respectively,  which  are  not 
resolved  by  the  selected  isoline  interval. 


Level  shown  in  map  at  right:  o  =  3/4. 


>J  ;vv-i 


3/4.  The  dashed  line  is  0  and  the  isoline  interval 
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Flg.  4.6.  Temperature  (Map  4) 
(deg  C) 

This  map  is  calculated  from  the  expression 


T 


(07T  +  Pt)K 


K  K 


f P3  -  (oir  +  Pt)K] 

(P1 


+  C  (ott  +  pt)k  -  p*]  >  -  273.1  deg 

P3  ) 


with  0  £  a  <:  1  an  arbitrary  0  surface.  This  represents  the  linear 

interpolation  and  extrapolation  of  the  potential  temperature 

0  *>  T(pQ/p)K  in  pK  space.  For  a  ■  1/4  and  0  -  3/4,  this  reduces  to 

the  primary  variables  ^  and  TJf  respectively.  Here  pT  is  the  tropo- 

pause  pressure  (»  200  mb)  and  <  ■  0.286.  The  temperature  may  also  be 

obtained  at  an  arbitrary  pressure  surface  p  «;  p  *;  p  -  n  +  p  by 

s  T 

replacing  (air  +  p^)  in  the  above  expression  by  p. 


Level  shown  in  map  at  right:  a  *  1/4. 


Ti  per  Mirv  it  *  !  .  the  Jashet!  lino  is  -20°C  nnd  tiio  isoline  interv.il  is 
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Fig.  4.7.  Temperature  (Map  4) 
(deg  C) 


This  map  is  calculated  from  the  expression 


(ott  +  pT)K  (  T1 

K  K  \  K 

P3  “  P1  (  pl 


IP,  “ 


(ott  +  PT)  ] 


+  -“  l(o*  +  pt)k  -  p*]  \  -  273.1  deg 
P3  I 

with  0  i  o  s  1  an  arbitrary  o  surface.  This  represents  the  linear 
interpolation  and  extrapolation  of  the  potential  temperature 
0  "  T(P0/P)  ln  P  space.  For  o  =  1/4  and  o  -  3/4,  this  reduces  to 
the  primary  variables  and  T^,  respectively.  Here  pT  is  the  tropo- 
pause  pressure  (*  200  mb),  and  k  ■  0.286.  The  temperature  may  also 
be  obtained  at  an  arbitrary  pressure  surface  p^,  s  p  s  p  =  tt  +  p^  by 
replacing  (on  +  p.j.)  in  the  above  expression  bv  p. 


Level  sliown  In  map  at  right :  n  ■  3/4. 


le  isoline  interval  is  5  deg 
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Fi%v  4.8. — Geopotential  Height  of  o  Surface  (Map  6) 

(100  m) 

This  map  is  calculated  from  the  expression 


*  + 

102  g 


where  ^  is  the  geopotential  of  the  earth's  surface,  g  is  the  accelera¬ 
tion  of  gravity,  and  where  the  geopotential  <p  of  an  arbitrary  a  surface 
is  given  by 


„  K.  K  K. 

2<P1(P3  -  P:) 
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Here  pT  is  the  tropapause  pressure  (=■  200  mb)  ,  k  -  0.286,  and  R  is  the 
dry-air  gas  constant.  For  a  -  1/4  and  o  -  3/4,  this  reduces  to  *  and 
$3,  respectively,  while  for  other  a  it  represents  a  linear  interpolation 
and  extrapolation  of  the  potential  temperature  in  pK  space.  The  geo- 
potential  height  of  an  arbitrary  pressure  surface  pt  s  p  s  it  +  p  may 
also  be  obtained  by  replacing  (air  +  pT>  in  the  above  expression  by  p 
(see  Figs.  4.8a  and  4.9a). 


Level  shown  in  map  at  right:  a  -  1/4. 


Geopotential  height  at  c  =  1/A.  The  dashed  line  is  7000  m  and  the  isoline  interval  is  100 
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Fig.  4.8a.  Geopotential  Height  of  Pressure  Surface  (Map  6) 

(100  m) 

This  map  is  calculated  from  the  expression 
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102  g 

where  ^  is  the  geopotential  of  the  earth's  surface,  g  is  the  accelera¬ 
tion  of  gravity,  and  where  the  geopotential  <j>  of  an  arbitrary  p  surface 
is  given  by 
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Here  pT  is  the  tropopause  pressure  (-  200  mb),  k  -  0.286,  and  R  is  the 
dry-air  gas  constant.  For  p  =*  and  p  =  p^,  this  reduces  to  the  height 
of  the  400-mb  and  800-mb  surfaces,  respectively,  while  for  other  p  it 
represents  a  linear  interpolation  and  extrapolation  of  the  potential 
temperature  in  p  space.  The  geopotential  height  of  an  arbitrary 
CT  surface  0  s:  a  s  1  may  also  be  obtained  by  replacing  p  in  the  above 
expression  by  (ott  +  pT)  (see  Figs.  4.8  and  4.9). 


Level  shown  in  map  at  right:  p  =  400  mb. 
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Fig.  9.  Geopotential  Height  of  o  Surface  (Map  61 

(100  m) 

This  map  Is  calculated  from  the  expression 
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where  ^  is  the  geopotential  of  the  earth's  surface,  g  is  the  accelera¬ 
tion  of  gravity,  aid  where  the  geopotential  <J>  of  an  arbitrary  o  surface 
is  given  by 
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Here  pT  is  the  tropopause  pressure  («  200  mb),  k  =  0.286,  and  R  is  the 
dry-air  gas  constant.  For  o  -  1/A  and  a  -  3/A,  this  reduces  to  *  and 
♦3,  respectively,  while  for  other  a  it  represents  a  linear  interpo¬ 
lation  and  extrapolation  of  the  potential  temperature  in  pK  space. 

The  geopotential  height  of  an  arbitrary  pressure  surface  p^  £  p  s;  tt  +  p( 
may  also  be  obtained  by  replacing  (ott  +  pT>  in  the  above  expression  by 
p  (see  Figs.  A. 8a  and  A. 9a). 


Level  shown  in  map  at  right:  0  -  3/ A. 
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Fig.  4.9a.  Geopotentlal  Height  of  Pressure  Surface  (Map  6) 

(100  m) 

This  map  is  calculated  from  the  expression 
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where  ^  is  the  geopotential  of  the  earth's  surface,  g  is  the  accelera¬ 
tion  of  gravity,  and  where  the  geopotential  <p  of  an  arbitrary  p  surface 
is  given  by 
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Here  pT  is  the  tropopause  pressure  (=  200  mb),  k  =  0.286,  and  R  is  the 
dry-air  gas  constant.  For  p  =  p^  and  p  =  p^,  this  reduces  to  the 
height  of  the  400-mb  and  800-mb  surfaces,  respectively,  while  for 
other  p  it  represents  a  linear  interpolation  and  extrapolation  of  the 
potential  temperature  in  pK  space.  The  geopotentlal  height  of  an 
arbitrary  a  surface  0  <  a  <  1  may  also  be  obtained  by  replacing  p  in 
the  above  expression  by  (ott  +  pT)  (see  Figs.  4.8  and  4.9). 


Level  shown  in  map  at  right:  p  =  800  mb. 
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Fig.  4.10,  Total  Heating  (Map  8) 
(deg  day  *) 


This  map  is  calculated  from  the  expression 
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2[V|  -  o)  +  H3(o  -  ^)]48 


where  and  H3  are  the  net  temperature  changes  in  the  upper  and  lower  layers, 
respectively,  over  a  time  interval  54 t  (the  time  interval  over  which  the  heat¬ 
ing  is  calculated  by  means  of  the  subroutine  COMP  3).  Here 
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where  (AT  )  and  (AT  )  are  the  temperature  changes  (over  5At)  due  to  middle- 
,  ,  J  CM  1  CP 

level  and  penetrating  convective  beating  in  the  upper  layer,  respectively  [with 

,  an<*  (AT.)  similarly  defined  for  the  lower  layer].  A,  and  A.  are  the 
J  CM  J  CP  13 

net  rates  of  short-wave  radiant-energy  absorption  in  the  two  layers,  RQt  R2, 

and  R^  are  the  upward  long-wave  radiative  flux  at  each  level,  F4  is  the  upward 
flux  of  sensible  heat  from  the  surface,  L  is  the  latent  heat  of  condensation, 
and  PREC  is  the  large-scale  condensation  or  precipitation  rate.  The  factor 
(2g/ir)  represents  the  mass  in  each  layer  (per  unit  area) ,  and  the  factor  48 
(the  number  of  times  in  a  day  the  heating  is  calculated)  converts  to  the  de¬ 
sired  units  (see  Chapter  II,  Sections  F  and  G,  and  instructions  11410  to  11490, 
COMP  3,  for  further  details). 

For  o  *  1/4  and  o  *  3/4,  this  expression  reduces  to  the  net  heat-induced 
temperature  changes  in  the  upper  and  lower  layers,  and  H3 ,  respectively. 

For  other  0  S  o  <  1  it  represents  the  assignment  of  the  layer's  temperature 
change  to  its  midpoint,  and  the  subsequent  linear  interpolation  and  extrapola¬ 
tion  in  o  (or  p)  space.  This  representation  of  the  diabatic  heating  may  also 
be  generated  for  an  arbitrary  pressure,  p,  by  replacing  o  in  the  above  expres¬ 
sion  by  (p  -  p  )/n. 


Level  shown  in  map  at  right:  a  -  1/4. 
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Flg.  4.11.  Total  Heating  (Map  8) 
(deg  day  1) 


This  map  is  calculated  from  the  expression 

H  -  2  [hi(|  -  a)  +  H3(o  -  £)  ]  48 

where  and  are  the  net  temperature  changes  in  the  upper  and  lower  layers, 
respectively,  over  a  time  interval  5At  (the  time  interval  over  which  the  heat¬ 
ing  is  calculated  by  means  of  the  subroutine  COMP  3) .  Here 
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where  (AT..)  and  (AT.)  are  the  temperature  changes  (over  5At)  due  to  middle- 
1  CM  ^  CP 

level  and  penetrating  convective  heating  in  the  upper  layer,  respectively  [with 

(AT_)  and  (AT  )  similarly  defined  for  the  lower  layer],  A  and  A  are  the 
J  CM  J  CP  11 

net  rates  of  short-wave  radiant-energy  absorption  in  the  two  layers,  R^,  R^ , 

and  R^  are  the  upward  long-wave  radiative  flux  at  each  level,  F4  is  the  upward 

flux  of  sensible  heat  from  the  surface,  L  is  the  latent  heat  of  condenstion, 

and  PREC  is  the  large-scale  condensation  or  precipitation  rate.  The  factor 

(2g/ir)  represents  the  mass  in  each  layer  (per  unit  area)  ,  and  the  factor  48 

(the  number  of  times  in  a  day  the  heating  is  calculated)  converts  to  the  desired 

units  (see  Chapter  II,  Sections  F  and  G,  and  instructions  11410  to  11490,  COMP  3, 

for  further  details). 

For  o  ■  1/4  and  o  *  3/4,  this  expression  reduces  to  the  net  heat-induced 
temperature  changes  in  the  upper  and  lower  layers,  and  H3>  respectively.  For 
other  0  s  o  s  1  it  represents  the  assignment  of  the  layer's  temperature  change  to 
its  midpoint,  and  the  subsequent  linear  interpolation  and  extrapolation  in  o 
(or  p)  space.  This  representation  of  the  diabatic  heating  may  also  be  generated 
for  an  arbitrary  pressure,  p,  by  replacing  a  in  the  above  expression  by  (p  -  p^)/^. 

Level  shown  in  map  at  right:  a  •  3/4. 
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Flg.  A. 12.  Large-Scale  Precipitation  Rate  (Map  9) 

(rara  day  *) 

This  map  is  calculated  from  the  expression 

in2 

PREC  48 

where  the  large-scale  precipitation  rate  (PRKC)  is  taken  equal  to  the 
rate  of  generation  of  water  vapor  in  excess  of  saturation  (i.e.,  the 
condensation  rate)  in  the  lower  layer,  and  is  given  by 

(  In3  -  qs<T3HO  +  V1.  i3>W 

PREC  -  . 

[  0  ,  otherwise 

where  q^  is  the  water-vapor  mixing  ratio  at  level  3,  qg(T^)  Is  the 

saturated  mixing  ratio  at  the  ambient  level-3  temperature  T.  (see 

2-1 

Fig.  4.14),  and  the  parameter  ■  Lqg ^T3^CHT3^  5418  8cR'  w*th  L 

the  latent  heat  of  condensation  and  c  the  dry-air  specific  heat  at 

P 

constant  pressure.  The  factor  n/2g  represents  the  mass  (per  unit  area) 

in  the  lower-laver  air  column  (u  *  1  tr  o  •  1/2).  The  factor  48  (the 

ratio  of  1  day  to  54t)  represents  tv  umber  of  times  per  day  the 

precipitation  (PREC)  is  computed  by  means  of  the  subroutine  COMP  3. 

-3  2 

Together  with  the  density  of  water,  p  ■  1  g  cm  ' ,  the  factor  10 
converts  to  the  desired  units.  See  Chapter  II,  Section  F  and  in¬ 
structions  8610  to  8690,  COMP  3,  for  further  details. 
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Fig.  4.13,  Sigma  Vertical  Velocity  (Map  10) 
(mb  hr 

This  map  is  calculated  from  the  expression 
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where  o  -  ■  dcr/dt  at  level  2  and  S  is  a  measure  of  the  difference  in 
horizontal  mass  convergence  between  levels  1  and  3,  given  by  Eq.  (2.34), 
Chapter  II,  as 


,  *  * 

where  u  -  niru  and  v  ■  mirv  are  weighted  mass  fluxes  at  the  levels  1 
or  3,  and  n  and  m  are  the  meridional  distance  (y)  and  zonal  distance  (x) 
between  u,v  grid  points.  The  sigma  vertical  velocity  may  also  be  written 
no  -  u  -  ott,  where  u  -  dp/dt  is  the  isobaric  vertical  velocity  and 
w  -  dp^/dt,  with  p  the  surface  pressure.  See  Chapter  II  for  further 
details  of  S,  representing  an  integration  of  the  equation  of  continuity. 
See  instructions  4130  to  4550,  COMP  1,  for  further  details. 
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Pig.  4.14.  Relative  Humidity  (Hap  11) 
(percent) 

This  map  is  calculated  from  the  expression 


"3  1q2W 

where  q3  is  the  water-vapor  mixing  ratio  at  level  3  and  qa(T3)  is  the 
saturation  mixing  ratio  at  the  ambient  level-3  air  temperature  T  . 
Here  W  *s  8*ven  by 


0.622  ea(T3) 
°,lp3  "  es(T3> 


where  p3  is  the  (total)  pressure  at  level  3,  and  the  saturation  vapor 
pressure  eg(T3)  is  given  by  the  semi-empirical  formula 


*s(T3)  "  10  -  2353  deg/T3) 

Both  p3  and  eg  here  are  In  the  units  cb  (centibar  -  10~2  bar  -  10  mb). 
These  relationships  permit  a  aupersaturatlon  of  a  few  percent  in  very 
aolat  air. 

All  of  the  atmospheric  humidity  is  carried  in  the  model  at  level  3 
(i.e.,  =  0),  so  that  Map  11  Is  always  for  the  level  o  •  3/4. 
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Fig.  4.15.  Preclpltable  Water  (Map  12) 
(cm) 


This  map  is  calculated  from  the  expression 


where  mixing  ratio  at  level  3,  is  interpreted  as  the  average 

mixing  ratio  between  the  surface  (o  -  1)  and  level  2  (o  -  1/2),  and 
where  the  density  of  water,  p^,  is  taken  as  1  g  cm"3,  which  together 
with  the  factor  10  serves  to  give  the  desired  units.  The  factor 
n/2g  represents  the  mass  (per  unit  area)  in  the  lower  half  of  the  air 
column  (c  ■  1  to  o  *  1/2),  and  results  from  the  vertical  integration 
of  the  water-vapor  distribution. 
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(mm  day  ^) 


This  map  is  calculated  from  the  expression 

(AT  )  +  (AT  )  +  (AT  )  +  (AT)  „ 

CM  CP  CM  3  CP  in2 

L/'p  2l 

where  (AT.)  and  (AT.)  are  the  temperature  changes  (over  5At)  due 
CM  (jp 

to  middle-level  and  penetrating  convective  heat  transport  in  the  upper 

layer,  respec: ively  [with  (AT  )  and  (AT.)  similarly  defined  for 

J  CM  J  rp 

the  lower  layer],  L  is  the  latent  heat  of  condensation,  c  is  the 
specific  heat  at  constant  pressure,  ■  1  g  cm  is  the  density  of 
water,  the  factor  ir/2g  represents  the  mass  in  each  layer  (per  unit  area)  , 
and  the  factor  48  (the  number  of  5At  intervals  in  one  day)  together  with 
the  factor  10  serves  to  convert  to  the  desired  units.  The  quantity 

(AV  +  (AT  )  +  (AT  )  +  (AT.)  (L/c  )-1  -  Cl  +  PCI  +  C3  +  PC3 

'  CM  1  CP  J  CM  J  Cpj  p 

in  FORTRAN  notation,  and  corresponds  to  the  quantity  PREC  in  Map  9  for 
the  large-scale  precipitation  rate. 

In  the  map  shown  on  the  right,  the  convective  precipitation  rate 
has  a  maximum  of  approximately  244  ram  dav’1.  This  rate,  however,  lasts 
for  a  relatively  short  time,  and,  due  to  the  nature  of  the  computed 
convective  heating,  cl  aracteristically  occurs  at  isolated  grid  points. 

See  instructions  8700  to  8890,  9140  to  9390,  COMP  3,  and  Chapter  II, 
Subsection  F.3,  for  further  details. 
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Fig.  4.17.  Evaporation  Rate  (Map  14) 
(mm  day~^) 

This  map  is  calculated  from  the  expression 
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where  E4  is  the  evaporation  in  g  cm  sec  ,  p,  is  the  surface  air  density, 

3 

Pw  ■  1  g  cm  the  density  of  water,  WET  a  (calculated)  ground  wetness  parameter, 

q_(T  )  the  saturated  mixing  ratio  at  the  (computed)  ground  temperature  T  ,  TGR  a 
.  ”  g 

(computed)  ground  temperature  parameter  including  the  effects  of  radiation,  and  Q4 

a  measure  of  the  mixing  ratio  at  level  4.  The  surface  drag  coefficient  CD  is  given 

by 


4> 


10  ,  0.0025  I  ,  if  ocean 


002  +  0.006  (z . /5000  m) 


otherwise 


with  the  elevation  of  the  surface.  Here  [vj  is  given  in  terms  of  the  wind 
speeds  at  the  four  velocity  points  surrounding  .impress lire  (or  temperature)  point  by 
the  expression  (in  tr-centered  notation) 
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where  -  0.7'v^  and  -  ~  (the  wind  extrapolated  to  level  4).  The 

additive  term  2.0  m  sec-1  is  an  empirical  correction  for  gustiness,  and  the  factors 
3 

10,  10  ,  and  DAY  (■  86,400)  convert  to  the  desired  units. 

The  tern  Q4  is  interpreted  as  the  effective  moisture  Just  above  the  surface, 
and  the  terms  in  WIT  represent  the  effective  surface  moisture.  The  entire  term 
in  (  )  thus  represents  the  vertical  moisture  eradient  near  the  earth’s  surfaci  . 

As  shown  in  the  map  on  the  right,  most  of  the  evaporation  occurs  over  the  ocean 
[where  the  term  (TGR  -  T  )  is  zero],  although  the  evaporation  is  occasionally 
negative  elsewhere  (representing  condensation  jn  tlu  surface).  See  instruc¬ 
tions  11220  to  112*10,  COMP  3,  and  Chapter  II,  Subsection  F.6,  for  further  details. 


-180- 


Fig.  4.18.  Sensible  Heat  Flux  (Map  15) 

(10  ly  day 

This  map  is  calculated  from  the  expression 

ty^p  (  |Vs|qQ  +  2,0  m  sec"1)  <Tg  "  ta)  10  DAY 

where  p 4  is  the  surface  air  density,  cp  the  specific  heat  at  constant 
pressure,  Tg  the  (computed)  ground  temperature  (or  an  assigned  ice  or 
ocean  surface  temperature),  and  is  the  air  surface  temperature. 

The  surface  drag  coefficient  CD  is  given  by 

c  _  j min  |(10  +  °-07|78|0'0)  10‘3. 0  0025],  u 

|  0.002  +  0.006(^/5000  m>,  otherwise 

with  t4  the  elevation  of  the  turf  ace.  Here  i.  glven  in  terBls 

of  the  wind  speeds  at  the  four  velocity  points  surrounding  a  pressure 
(or  temperature)  point  by  the  expression  (in  ^centered  notation) 
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where  \  -  0.7|vJ  »d  5,  -  |  V,  -  i  Vj  (the  wind  extrapolated  to 

level  41.  The  additive  ten.  2.0  m  sec'1  Is  an  empirical  correction 
for  gustiness,  and  the  factor  10  DAY  (-  10  -  86,400)  converts  to  the 
desired  units.  The  sensible  heat  flux  (FA  in  the  FORTRAN  code)  is 
positive  when  ground  temperature  is  greater  than  surface  air  tempera¬ 
ture  (Tg  >  T4),  representing  a  heat  flux  from  the  ground  to  the  air. 
As  shown  in  the  map  on  the  right,  however,  this  flux  is  often  nega¬ 
tive.  See  instructions  11220  to  11290,  COMP  3,  and  Chapter  II,  Sub¬ 
section  C.3,  for  further  details. 


06 


nnd  the  isoline  interval  is  100  1 y  day" 
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Fig.  4.18a.  Lowest-Level  Convection  (Map  16) 

(deg) 


This  map  is  calculated  from  the  expression 
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0  ,  otherwise 


where  the  static-energy  parameters  are  given  by 
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where  <J>  =  gz  is  the  geopotential  and  q  is  the  saturation  mixing  ratio. 

*  s 

The  condition  h^  >  h^  thus  ensures  instability  between  levels  4  and  3, 
while  the  condition  h^  £  h^  ensures  stability  between  levels  3  and  1 
(i.e.,  there  is  no  middle-level  convection).  Hence  EX  2:  0,  and  repre¬ 
sents  the  adjustment  of  the  level-4  temperature  due  to  convection.  If 
* 

h^  <  h^  the  computed  value  of  EX  is  regarded  as  due  to  low-level  con¬ 
vection,  and  is  used  to  modify  both  the  lowest-level  temperature  (T.) 

if  ^ 

and  lowest-level  heating  (Q4) .  If  h^  >  h^  the  computed  value  of  EX  is 
regarded  p s  due  to  penetrating  convection,  and  is  used  to  modify  not 
only  and  Q4  but  the  heating  in  the  upper  and  lower  layer  as  well. 

See  Chapter  II,  Subsection  F.3,  and  instructions  8700  to  9350,  COMP  3, 
for  further  details. 
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Fig.  4.19.  Long-Wave  Heating  in  layers  (Map  19) 

(deg  day  1) 


This  map  is  calculated  from  the  expressions 


(R2  -  R0)(-^)  —  if  0  £  j  <  0.5 

7T  C 

P 


(R4  -  R2)(^)  —  if  0.5  £  o  <  1 

7T  C 

P 


for  an  arbitrary  a  surface,  where  R0,  R2,  R4  are  the  upward  long-wave 
radiation  fluxes  at  the  levels  a  ■  0,  1/2,  1,  respectively.  The  dif¬ 
ference  (R2  -  R0)  is  thus  the  net  long-wave  radiation  absorbed  in  the 
upper  layer  o  •  0  to  o  ■  1/2,  and  (R4  -  R2)  is  the  net  long-wave  radia¬ 
tion  absorbed  in  the  lower  layer  o  ■  1/2  to  a  ■  1.  Usually  this  heat¬ 
ing  is  negative,  representing  a  net  long-wave  cooling.  The  factor 
(2g/ir)  *  represents  the  air  mass  in  either  the  upper  or  lower  layer 
(per  unit  area),  and  c^  is  the  air's  specific  heat  at  constant  pres¬ 
sure.  Thus,  depending  upon  whether  a  <  1/2  or  a  £  1/2,  either  one  of 
two  versions  of  this  map  is  produced.  See  Chapter  II,  Section  G,  and 
instructions  9750  to  10230,  COMP  3,  for  further  details. 


Layer  shown  in  map  at  right:  upper  layer. 
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Fig.  4.20.  Long-Wave  Heating  In  Layers  (Map  19) 

(deg  day  1) 


This  map  Is  calculated  from  the  expressions 

(R2  -  R0)  (— ^)  —  if  0  <  c  <  0.5 

IT  C 

P 

(R4  -  R2)(-^)  —  if  0.5  <  a  <  1 

TT  C 

P 

for  an  arbitrary  a  surface,  where  R0,  R2,  R4  are  the  upward  long-wave 
radiation  fluxes  at  the  levels  a  =  0,  1/2,  1,  respectively.  The  dif¬ 
ference  (R2  -  R0)  is  thus  the  net  long-wave  radiation  absorbed  in  the 
upper  layer  o  •  0  to  o  *  1/2,  and  (R4  -  R2)  is  the  net  long-wave  radia¬ 
tion  absorbed  in  the  lower  layer  a  *  1/2  to  o  ■  1.  Usually  this  heat¬ 
ing  is  negative,  representing  a  net  long-wave  cooling.  The  factor 
(2g/ir)  1  represents  the  air  mass  in  either  the  upper  or  lower  layer 

(per  unit  area),  and  c  is  the  air’s  specific  heat  at  constant  pres- 

P 

sure.  Thus,  depending  upon  whether  a  <  1/2  or  a  >  1/2,  either  one  of 
two  versions  of  this  map  is  produced.  See  Chapter  II,  Section  G,  and 
instructions  9750  to  10230,  COMP  3,  for  further  details. 


Layer  shown  in  map  at  right:  lower  layer. 
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— 4'21, — Short-Wave  Absorption  (Heating)  In  Lavers  (Map  20) 

(deg  day 


This  map  is  calculated  from  the  expressions 

7~  if  0  <  o  <  0.5 

P 

A3(f&)  7"  lf  0.5  <  0  <  1 

P 

if  the  cosine  of  the  sun's  zenith  angle  exceeds  0.01.  These  expres¬ 
sions  are  replaced  by  zero  if  the  cosine  of  the  sun's  zenith  angle  is 

less  than  or  equal  to  0.01.  Here  A1  and  A3  are  the  absorbed  short¬ 
wave  radiation  in  the  upper  layer  (a  -  0  to  a  -  1/2)  and  lower  layer 

(a  =  1/2  to  a  -  1),  respectively,  the  factor  (2g/Ti)'1  represents  the 
mass  (per  unit  area)  in  each  layer,  and  cp  is  the  specific  heat  at 
constant  pressure.  Thus,  depending  upon  whether  the  arbitrary  value 
of  a  is  <  1/2  or  >  1/2,  either  one  of  two  versions  of  this  map  is 
produced.  The  value  of  ^  is  the  difference  between  the  incoming  so¬ 
lar  radiation  (that  part  subject  to  absorption)  at  the  ltvel  a  -  0 
and  the  downward  short-wave  flux  at  the  level  o  -  1/2.  Similarly,  A 
is  the  difference  between  the  downward  fluxes  at  the  levels  a  *  1/2 
and  o-l.  In  either  version,  the  short-wave  absorption  is  always 
positive  (or  zero)  and  represents  the  net  short-wave  heating  within 
the  layers.  See  Chapter  II,  Section  G,  and  instructions  10430  to 
11010,  COMP  3,  for  further  details. 


Layer  shown  in  map  at  right:  upper  layer. 


>•,  m 
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— 4,22‘ — Short-Wave  Absorption  (Heating)  in  Lavers  (Map  20) 

(deg  day  *) 


This  map  is  calculated  from  the  expressions 

Vi*5  r  if  0  <  0  <  0.5 

p 

A3(^  7~  if  0.5  <  o  <  1 

P 

if  the  cosine  of  the  sun's  zenith  angle  exceeds  0.01.  These  expres¬ 
sions  are  replaced  by  zero  if  the  cosine  of  the  sun's  zenith  angle  is 

less  than  or  equal  to  0.01.  Here  and  A3  are  the  absorbed  short¬ 
wave  radiation  in  the  upper  layer  (0  «  0  to  o  -  1/2)  and  lower  layer 

(a  =  1/2  to  a  *  1) ,  respectively,  the  factor  (2g/7T)"1  represents  the 
mass  (per  unit  area)  in  each  layer,  and  Cp  is  the  specific  heat  at 
constant  pressure.  Thus,  depending  upon  whether  the  arbitrary  value 
of  o  is  <  1/2  or  >  1/2,  either  one  of  two  versions  of  this  map  is 
produced.  The  value  of  A]_  is  the  difference  between  the  incoming  so¬ 
lar  radiation  (that  part  subject  to  absorption)  at  the  level  a  =  0 
and  the  downward  short-wave  flux  at  the  level  a  =  1/2.  Similarly,  A 
is  the  difference  between  the  downward  fluxes  at  the  levels  cr  =  1/2  3 
and  o=l.  In  either  version,  the  short-wave  absorption  is  always 
positive  (or  zero)  and  represents  the  net  short-wave  heating  within 
the  layers.  See  Chapter  II,  Section  G,  and  instructions  10430  to 
11010,  COMP  3,  for  further  details. 


Layer  shown  in  map  at  right:  lower  layer. 


□  □ 


-191- 


OJ 

c 

•H 


Q) 

X 

CO 

G 

X 

Q) 

X 

H 


O 

u 


CM 

fH 

i 

>) 

II 

"O 

D 

w 

00 

0J 

X 

0) 

LA 

• 

rH 

o 

CO 

cu 

•rH 

£ 

0 

rH 

*H 

nJ 

> 

C 

u 

•H 

cu 

H 

01 

C 

■u 

•H 

u 

0) 

G 

00 

•rH 

c 

rH 

•rH 

0 

4J 

CO 

G 

•rH 

0) 

r; 

Q) 

X 

CD 

•U 

> 

♦rH 

TJ 

■U 

c 

G 

•H 

-a  - 

d 

1 

u 

G 

Q) 

X> 

> 

d 

00 

0) 

1 

X 

u 

u 

CM 

0 

CO 

m 

•H 

CM 

CM 


00 

•rH 


-192- 


Fig.  4.23.  Surface  Short-Wave  Absorption  (Map  22) 
(100  ly  day 


This  map  is  calculated  from  the  expression 

S4/100 

if  the  cosine  of  the  sun's  zenith  angle  is  greater  than  0.01,  and  is 
set  equal  to  zero  if  the  cosine  of  the  sun's  zenith  angle  is  less  than 
or  equal  to  0.01.  Here  S4  is  the  short-wave  radiation  absorbed  at  the 
surface  (or  level  4).  The  effects  of  surface  albedo,  atmospheric  mois¬ 
ture,  and  cloudiness  are  taken  into  account.  The  surface  short-wave 
heating  is  always  positive  (or  zero) ,  and  represents  the  net  absorption 
of  insolation  at  the  surface.  See  Chapter  II,  Section  G,  and  instruc¬ 
tions  10430  to  11010,  COMP  3,  for  further  details. 
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Flg,  4.24,  Surface  Air  Temperature  (Map  23) 

(deg  C) 


This  map  Is  calculated  from  the  expression 

T4  -  273.1  deg 

where  is  the  air  temperature  at  the  surface  (level  4).  Since  , 
like  other  dependent  temperature  variables,  is  in  deg  K,  this  expres¬ 
sion  serves  simply  to  convert  the  surface  air  temperature  into  the 

units  deg  C.  The  value  of  resembles  the  extrapolated  value 
3  1 

2  3  ~  ^  T1  (w^ere  T-j  and  are  the  air  temperatures  at  levels  3 

and  1,  respectively),  but  also  incorporates  the  surface  air  tempera¬ 
ture  adjustments  introduced  by  low-level  convection  and  latent  heat¬ 
ing.  See  Chapter  II,  Section  G,  and  instructions  8970  to  9130  in  sub¬ 
routine  COMP  3  for  further  details. 
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Fig.  4.25.  Ground  Temperature  (Map  24) 
(deg  C) 


This  map  is  calculated  from  the  group J-teraperature  (T  )  depen- 

8r 

dence  of  the  terms  in  the  surface  heat-balance  equation,  assuming  ♦‘he 
ground  to  be  a  perfect  insulator  of  zero  heat  capacity: 


R,  +  r  +  H_  -  s  -  u 

4  Eg 


4  4 

Here  the  surface  long-wave  cooling  R,  is  given  by  R,  +  a(T  -  T  ), 

the  surface  sensible  heat  flux  T  by  C_(T  -  T.),  the  latent  heat  flux 

T  gr  4 

from  surface  evaporation  H_  by  C„(q  -  q.)L/c  ,  and  S  is  the  solar 
r  E  T  nse  ^4  p  g 

r>j 

radiation  absorbed  at  the  surface.  Here  R^  is  a  preliminary  deter¬ 
mination  of  the  surface  long-wave  cooling,  and  T  is  a  revised  or  im¬ 
proved  value  of  the  ground  temperature  T  .  For  further  details,  see 

8 

Chapter  II,  Subsection  G.3. 

Over  ice-  or  snow-covered  land  and  over  sea  ice,  T  is  not  al- 

8r 

lowed  to  exceed  T  (“  273. 1°K).  Over  sea  ice  this  balance  is  altered 
o 

to  include  a  heat  flux  into  the  sea  ice  given  by  -B(T^r  -  Tq) ,  where 
B  is  an  assumed  ice  conduction  coefficient.  Over  open  ocean  the  ground 


temperature  is  taken  equal  to  the  assigned  sea-surface  temperature 

T  *  TGOO  (see  Fig.  3.14),  and  there  is  thus  no  ground-temperature  cor- 
8 

rection  to  either  the  surface  long-wave  radiation  (R^  ■  R^)  or  to  the 
surface  saturated  mixing  ratio  (q  -  q  ) . 

36  S 


Fig.  4.25 
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Fig.  4.26.  Ground  Wetness  (Map  25) 
(dimensionless) 


This  map  Ls  calculated  from  the  expression  GW  =  10  WET,  where 
WET  is  assigned  the  value  1.0  (saturated)  over  ocean,  ice,  and  snow 
surfaces,  and  is  calculated  over  (bare)  land  surfaces  according  to 


WET  *  (GW) 

new 


(GW) 


old 


+  (1  -  runoff) (Aq  ) 

J  TOTAL 


1  77 

GWM  2g’ 


in  which  the  old  or  previous  value  of  GW  is  altered  according  to  the 

surface  water  balance.  Here  (Aq  )  =  (E  -  C)(2g/7r)5At  is  the 

TOTAL 

total  moisture  change  (over  5At)  including  the  effects  of  evaporation 
and  both  large-scale  and  convective  condensation,  and  GWM  is  an  as¬ 
sumed  constant  ground-water  mass  (=  30  g  cm'2).  The  runoff  factor 
varies  between  0  and  1,  and  is  taken  as  0.5 (GW)  if  (gw)  <  1 
(unsaturated  surface),  and  as  unity  if  (GW)old  =  1  (saturated),  pro¬ 
vided  (Aq3)  >  0  in  either  case.  If  (Aq  )  <  0,  representing 

TOTAL  J  TOTAL 

an  increase  in  level-3  moisture  and  a  decrease  of  surface  moisture, 

then  the  runoff  is  taken  as  zero.  See  Chapter  II,  Subsection  F.5, 
for  further  details. 

If  (GW)new  <  0  it:  is  set  t0  zero>  and  if  (GW)^  >  1  it  is  set 
to  unity.  The  resulting  wetness  is  then  multiplied  by  10  in  order  to 
scale  the  final  GW  from  0  to  10. 


□  □ 
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Fig,  4.27.  High  Cloudiness  (Map  26) 
(dimensionless) 


This  version  of  Map  26  is  calculated  from  the  expression 
CL1  =  min(-l . 3  +  2.6RH3>  1) 

where  RH^  is  the  level-3  relative  humidity  (as  in  Map  11).  If  CL  £  0 
the  sky  is  assumed  to  be  clear  and  CL  is  reset  to  zero;  otherwise  CL1 
is  taken  as  the  fraction  of  the  sky  covered  with  high  or  tvpe-1  clouds. 
This  cloudiness  measure  may  be  identified  with  towering  cumulus  between 
the  levels  3  and  1,  and  is  associated  with  either  midd.\e-level  or  pene¬ 
trating  convection.  If  there  is  no  such  convection,  there  is  no  type-1 
or  high  cloudiness  (CL1  -  0).  For  identification,  this  cloudiness  is 
assigned  the  index  a  ■  1/4  in  the  map-generating  program  in  Chapter  VII. 
See  Chapter  II,  Subsection  F.6,  for  further  details. 
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Fig,  4.28,  Middle  Cloudiness  (Map  26) 
(dimensionless) 


This  version  of  Map  26  is  calculated  on  the  basis  of  CL2  ■  1 
if  there  is  large-scale  precipitation  (and  if  there  is  no  penetrating 
convection  or  high  cloudiness,  CL1  -  0).  Under  all  other  conditions 
CL2  -  0.  Thus  this  measure  of  cloudiness  is  either  0  or  1  at  all 
points.  We  may  regard  CL2  as  the  fraction  of  the  sky  covered  by 
type-2  clouds,  which  are  identified  as  heavy  overcast  between  levels  3 
and  2.  For  identification,  this  cloudiness  is  assigned  the  index 
a  -  3/4  in  the  map-generating  program  in  Chapter  VII.  See  Chapter  II, 
Subsection  F.6,  for  further  details. 


Fig.  4.28  —  Middle  cloudiness,  scaled  0  or  1.  The  dashed  line  is  0.5  and  the  isoline  interval  is 


Fix.  4.29.  Low  Cloudiness  (Map  26) 
(dimensionless) 


This  version  of  Map  26  is  calculated  from  the  expression 
CL 3  -  min(-l. 3  +  2.6RH3,  1) 

where  RH^  is  the  level-3  relative  humidity  (as  in  Map  11).  If 
CL3  £  0  the  sky  is  assumed  to  be  clear  and  CL3  is  reset  to  zero; 
otherwise  CL3  is  taken  as  the  fraction  of  the  sky  covered  with  low 
or  type-3  clouds.  This  cloudiness  measure  may  be  identified  with 
shallow  cumulus  at  level  3,  and  is  associated  with  low-level  con¬ 
vection.  If  there  is  no  low-level  convection,  there  is  no  low 
cloudiness  (CL3  ■  0);  there  is  also  no  low  cloudiness  if  there  is 
any  high  cloudiness  (as  in  Fig.  4.27).  For  identification,  this 
cloudiness  is  assigned  the  index  a  ■  1  in  the  map-generating  pro¬ 
gram  in  Chapter  VII.  See  Chapter  II,  Subsection  F.6,  for  further 


details. 


Fig.  4.29  —  Low  cloudiness,  scaled  <1.  The  dashed  line  is  0.5  and  the  isoline  interval  i 
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Flg.  4.29a.  Total  Convective  Heating  in  Layers  (Map  28) 

(deg  day-1) 


This  map  is  calculated  from  the  expression 


2 


+  (AT  ) 

CP 


<T  -  o)  +  (AT  )  +  (AT,) 

CM  CP 


48 


where  (AT.)  and  (AT.)  are  the  temperature  changes  (over  5At)  due 
CM  1  CP 

to  middle-level  and  penetrating  convective  heating,  respectively,  in 

the  upper  layer  [with  (AT,)  and  (AT,)  similarly  defined  for  the 

CM  J  CP 

lower  layer].  The  factor  48  converts  to  the  desired  units,  and  the 
factor  2  represents  (o3  -  o^”1.  For  o  other  than  c^-  1/4)  and 
a,  (-  3/4),  this  map  thus  generates  the  convective  heating  rate  by 
linear  interpolation  and  extrapolation  in  a  (or  p)  space.  If  a 
p  surface  is  requested,  o  in  the  above  expression  is  replaced  by 
(p  “  PT)/*-  See  Chapter  II,  Section  F,  and  instructions  11410  to 
11490,  COMP  3,  for  further  details. 


Layer  shown  in  map  at  right:  upper  layer. 
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Flg.  4.29b.  Total  Convective  Heating  in  Layers  (Map  28) 

(deg  day"1) 


This  map  is  calculated  from  the  expression 


o)  +  I  (AT  )  +  (AT.)  (o  -  i) 

CM  J  CP  4 


48 


where  (AT  )  and  (AT.)  are  the  temperature  changes  (over  5At)  due 
CM  CP 

to  middle-level  and  penetrating  convective  heating,  respectively,  in 

the  upper  layer  [with  (AT  )  and  (AT.)  similarly  defined  for  the 

CM  J  CP 

lower  layer].  The  factor  48  converts  to  the  desired  units,  and  the 
factor  2  represents  (o3  -  o^"1.  For  o  other  than  o  (-  1/4)  and 


°3  thl>  m,P  thu>  generates  the  convective  heating  rate  by 

linear  interpolation  and  extrapolation  in  o  (or  p)  space.  If  a 
p  surface  is  requested,  a  in  the  above  expression  is  replaced  by 
(p  -  PT)/".  See  Chapter  II,  Section  F,  and  instructions  11410  to 
11490,  COMP  3,  for  further  details. 


Layer  shown  in  map  at  right:  lower  layer. 


□  □ 
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Flg.  4.29c.  Latent  Heating  (Map  29) 
(deg  day"1) 


This  map  is  calculated  from  the  expression 

j-  (PREC)48 
P 

where  PREC  is  the  large-scale  condensation  (or  precipitation)  rate 

(as  in  Map  9) ,  L  is  the  latent  heat  of  condensation,  and  c  is  the 

P 

air's  specific  heat  at  constant  pressure.  The  factor  48  converts  to 
the  desired  units.  This  latent  heating  applies  to  the  lower  layer 
only,  as  represented  by  level  3.  See  Chapter  II,  Subsection  F.2, 
and  instructions  8610  to  8690,  COMP  3,  for  further  details. 
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Flg.  4.30.  Surface  Long-Wave  Cooling  (Map  30) 
(100  ly  day 


This  map  is  calculated  from  the  expression 

R4/100 

where  R4  is  the  net  upward  long-wave  radiation  at  the  earth's 
face.  See  Chapter  II,  Subsection  G.2,  and  instructions  10430 
11010,  COMP  3,  for  further  details. 


sur- 

to 
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Fig,  4.31.  Surface  Heat  Balance  (Map  31) 
(100  ly  day  *) 


This  map  is  calculated  from  the  expression 

(S4  -  R4  -  F4)10"2  -  (LpwE4)10“3 

where  S4  is  the  short-wave  radiation  absorbed  at  the  surface  (as  in 
Map  22) ,  R4  is  the  net  upward  long-wave  radiation  at  the  surface  (as 

in  Map  30) ,  F4  is  the  upward  sensible  heat  flux  from  the  surface  (as 

in  Map  15),  and  E4  is  the  heat  expended  in  evaporation  from  the  sur¬ 
face  (as  in  Map  14).  Here  L  is  the  latent  heat  of  evaporation,  p 

-2  -3 

is  the  density  of  water,  and  the  factors  10  and  10  serve  to  con¬ 
vert  to  the  desired  units.  A  positive  balance  indicates  a  net  down¬ 
ward  energy  flux  at  the  surface.  Since  the  ground  temperature  over 
land  (and  ice)  is  itself  determined  from  the  condition  of  a  zero 
surface  heat  balance,  the  small  but  nonzero  values  for  the  heat  bal¬ 
ance  seen  here  over  the  continents  are  the  result  of  the  use  of 

spatially  averaged  temperatures  in  those  portions  of  the  subroutine 

COMP  3  that  have  been  incorporated  into  the  program  for  Map  30  (see 
Map  Program  Listing,  Chapter  VII,  Section  B) .  This  imbalance  is  here 
less  than  10  ly/day,  or  approximately  one  percent  of  the  separate 
heat-balance  components.  The  relatively  small  heat  flux  through  the 
ice  at  the  (fixed)  locations  of  ice-covered  ocean  has  also  been  ne¬ 
glected  in  producing  this  map.  See  Chapter  II,  Subsection  G.3,  for 
further  details. 
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%_•  Surface-Pressure  Sequence 

To  illustrate  the  typical  time  behavior  of  the  circulation  simu¬ 
lated  by  the  model,  a  10-day  sequence  of  the  solution  for  sea-level 
pressure  is  presented  in  Fig.  4.32.  These  maps  are  from  the  same  con¬ 
trol  experiment  as  those  shown  in  Subsection  A.l  above,  and  constitute 
a  Lime  series  starting  with  Map  1  of  Fig.  4.1.  These  maps  show  the 
sea-level  pressure  isolines  at  5-mb  intervals,  with  an  additive  1000  mb 
understood.  It  is  characteristic  of  the  model’s  solutions  that  the 
sea-level  pressure  distribution  maintains  a  synoptic-like  structure  as 
successive  cyclone  families  are  formed  in  the  middle  latitudes. 


Daily  sequence  of  smoothed  sea-level 
is  1000  mb  and  the  isoline  interval  i 


pressure.  The  dashed  line 
s  5  mb  (see  Fig.  4.1). 
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Preceding  page  blank 


V.  PHYSICS  PICT IONARY 


PURPOSE 

This  list  of  terms  permits  easy  entry  into  the  model's  physics 
and  its  numerical  procedures  without  prior  knowledge  of  specific  mathe¬ 
matical  or  FORTRAN  symbols.  In  this  sense  it  complements  the  list  of 
symbols  and  FORTRAN  dictionary  given  in  Chapter  VIII.  This  list,  of 
course,  is  by  no  means  a  complete  one,  but  the  authors  have  Included 
those  terms  commonly  associated  with  the  numerical  simulation  of  the 
general  atmospheric  circulation.  For  each  term  a  brief  description 
(and  location)  of  its  treatment  in  the  model  is  given,  together  with 
any  appropriate  symbols,  values,  units,  FORTRAN  representations,  and 
program  locations. 

LIST  OF  TERMS 

Albedo 

The  nlbedo  of  the  earth's  surface,  otg  (ALS),  is  assumed  constant 
for  t types  of  surface  topography:  0.14  for  bare  land,  0.07  for 
ocean.  The  albedo  of  ice  and  of  snow-covered  lend  varies  from  about 
0.40  to  0.90  and  is  dependent  upon  latitude  and  time  of  year  (see  in¬ 
structions  10240  to  10410  in  the  FORTRAN  listing),  but  does  not  depend 
in  the  present  version  upon  the  simulated  circulation.  The  albedo  of 
clouds ,  <*c  (ALAC) ,  used  in  the  treatment  of  radiation  varies  between 
0.6  and  0.7,  depending  upon  the  simulated  clouds  (see  instructions 
7620  to  7640  in  the  FORTRAN  listing).  The  value  of  the  albedo  of  the 
cloudless  atmosphere  for  (Rayleigh)  scattering,  aQ  (ALA0,  instruction 
10450),  is  a  function  of  pressure  and  solar  zenith  angle,  while  for  an 
overcast  sky,  a^,  it  depends  upon  both  and  (see  instructions 
10650,  10750,  10880).  See  Chapter  II,  Section  G,  for  further  details. 

Boundary  Conditions 

At  the  earth's  surface  (o  ■  1)  and  at  the  assumed  isobaric  tropo- 
pause  (o  -  0)  the  condition  a  -  do/dt  -  0  is  imposed.  This  ensures  no 
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motion  th.  gh  the  surface  p  -  pg  at  the  ground  (kinematic  boundary 
condition),  and  no  motion  through  the  surface  p  =  pT  (free  surface 
condition),  where  pT  (■=  200  mb)  is  the  assumed  tropopause  pressure. 
There  are  no  lateral  boundary  conditions  in  the  global  model,  although 
there  are  some  computational  adjustments  at  the  poles  (see  Chapter  III) 
Over  a  water  surface  (ocean  or  lake)  the  surface  temperature  is  fixed 
at  a  climatological  mean  value,  whereas  over  a  snow  or  ice  surfe^e  (sea 
ice  or  glacier)  the  surface  ground  temperature,  although  in  general  cal 
culated  by  the  model,  is  not  allowed  to  warm  above  0  deg  C. 

Clouds 

Clouds  are  simulated  in  the  model  both  through  large-scale  con¬ 
densation  and  through  convection.  The  degree  of  cloudiness  affects 
the  short-wave  radiation  by  reflection  (with  an  assumed  cloud  albedo) 
and  by  partial  absorption  within  the  cloud  by  means  of  a  fictitious 
water-vapor  amount  u^  The  cloudiness  also  affects  the  long-wave  ra¬ 
diation  balance  (see  Chapter  II  and  subroutine  COMP  3,  instructions 
9400  to  10230  and  10540  to  11200).  The  cloudiness  parameters  CL1, 

CL2,  and  CL 3  represent:  (1)  either  penetrating  or  midlevel  convec¬ 
tion,  (2)  large-scale  condensation,  and  (3)  low-level  convection,  re¬ 
spectively.  These  are  combined  into  the  total  or  effective  cloudiness 
measure  CL,  which  is  the  fraction  of  sky  assumed  to  be  cloud-covered 
(0  <  CL  <  1).  The  measures  CL1  and  CL3  also  depend  upon  the  humidity 
at  level  3.  See  Chapter  II,  Subsection  F.4,  for  further  ^Lails  and 
Figs.  4.27  to  4.29,  Chapter  IV,  for  typical  distributions. 

Condensation 

Large-scale  condensation  (PREC)  occurs  mainly  as  a  result  of  the 
lifting  of  saturated  air;  the  model's  only  atmospheric  moisture,  q^, 
is  at  the  level  a  -  3/4  and  this  is  assumed  representative  of  the  av¬ 
erage  moisture  in  the  layer  a  -  1/2  to  1.  Convective  condensation  (Cl, 
C3,  PCI,  PC3)  is  parameterized  in  both  the  upper  and  lower  levels,  al¬ 
though  moisture  continues  to  be  carried  only  at  the  level  3.  Conden¬ 
sation  (dew  deposit)  may  also  occasionally  occur  on  the  surface  as 
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negative  evaporation  (E4) .  Since  no  cloud  liquid-water  content  is 
carried,  condensation  is  equivalent  to  precipitation  in  the  model  (see 
subroutine  COMP  3,  instructions  8620  to  8800,  9140  to  9360).  See  also 
Chapter  II,  Subsections  F.2  and  F.3,  for  further  details;  and  Figs. 
4.12  and  4.16,  Chapter  IV,  for  typical  distributions. 

Convection 

Low-level  convection  is  simulated  under  unstable  conditions  by 
altering  the  surface  air  temperature  (level  4)  by  an  amount  necessary 
to  restore  the  vertical  lapse  rate  between  levels  3  and  4  to  a  stable 
configuration.  If  the  lapse  rate  between  the  surface  and  the  upper 
level  1  is  unstable,  a  penetrating  convective  heating  is  introduced 
in  the  heat  budget  of  both  the  upper  and  lower  layer,  as  well  as  at 
the  surface,  so  as  to  restore  stability.  See  Chapter  II,  Section  F; 
and  subroutine  COMP  3,  instructions  8700  to  8880,  8960  to  9390,  for 
further  details. 


Convective  Adjustment 

As  a  result  of  advective  temperature  changes  and  diabatic  heat¬ 
ing  at  the  levels  1  and  3,  the  vertical  temperature  lapse  rate  may 
become  dry-adiabatically  unstable.  This  is  checked  in  a  test  for 
dry-adiabatic  instability  every  30  minutes,  or  every  5  time  steps 
(before  the  heating),  in  subroutine  COMP  3  (instructions  8180  to  8320), 
wherein  the  potential  temperatures  and  03  are  both  set  equal  to  the 

value  (T  +  To)/(p,  +  p-) ,  if  prior  to  the  adjustment  0.  >  6  .  See 

J  3  1 

Chapter  II,  Subsection  F.l,  for  further  details. 


Coriolis  Force 


The  Coriolis  force  (per  unit  mass),  f  -  2Q  sin  cp,  is  computed  for 
each  latitude  by  means  of  a  finite-difference  approximation  to  the 
equality  sin  cp  -  -  ^cos^9,  This  is  Perf°nned  in  the  subroutine 

MAGFAC  (see  instructions  14700  to  14750),  wherein  F(J)  is  the  Coriolis 
parameter.  See  Chapter  III,  Subsection  C.5,  for  further  details. 
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Diffusion  Coefficient 

The  coefficient  of  lateral  eddy  diffusion  is  set  equal  to  zero 
in  the  present  version  of  the  model.  However,  provision  has  been  made 
for  including  a  diffusion  of  horizontal  momentum  in  the  subroutine 
COMP  4  (see  instructions  12270  to  12680),  with  horizontal  diffusion 
coefficients  dependent  upon  the  local  mesh  sizes. 

Drag  Coefficient 

Over  the  oceans  the  drag  coefficient  C  is  a  function  of  the  sur- 
face  wind  speed,  Vg,  and  is  given  by  1.0  +  0.07|v  |l0  or  0.0025, 
whichever  is  smaller.  Over  land  (and  ice  or  snow)  C^  is  given  by 
0.002  +  0.006(z^/5000  m) ,  where  z^  is  the  height  of  the  surface.  This 
is  computed  as  CD  in  subroutine  COMP  3  (see  instructions  7910  to  7980). 
See  Chapter  III,  Subsection  C.10,  for  further  details. 

Evaporation 

The  surface  evaporation  rate,  E,  is  locally  computed  every  five 
time  steps  over  both  ocean  and  land  as  E4  in  the  subroutine  COMP  3 
(see  instruction  11240).  The  evaporation  is  dependent  upon  the  local 
surface  wind  speed  and  drag  coefficient,  the  local  surface  air  density 
and  temperature,  and  the  low-level  vertical  moisture  gradient.  The 
evaporation  distribution  iti  illustrated  in  Fig.  4.17,  Chapter  IV.  See 
Chapter  II,  Subsection  F.4,  for  further  details. 

Finite-Difference  Grid 

The  present  model's  primary  or  tt  grid  consists  of  points  spaced 
5  deg  longitude  and  4  deg  latitude  over  the  globe,  and  is  illustrated 
by  the  symbol  (o)  in  Fig.  3.2.  At  the  set  of  such  points  including 
the  poles  (but  not  the  equator)  the  variables  ir,  T,  <j>,  and  q  are  de¬ 
termined,  while  at  the  set  of  points  4  deg  latitude  apart  including 
the  equator  (but  not  the  poles)  and  displaced  eastward  2-1/2  deg  longi¬ 
tude  relative  to  the  it  grid,  the  horizontal  speeds  u  and  v  are  deter¬ 
mined  [the  u, v  grid,  illustrated  by  the  symbol  (+)  in  Fig.  3.2].  The 
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comp  let  e  grid  therefore  consists  of  6552  distinct  data  points  at  each 
of  two  levels,  with  additional  information  stored  for  the  tt  grid  at 
the  surface.  For  computational  convenience  additional  subgrids  are 
defined  in  Chapter  III  (see  Fig.  3.2). 

Friction 

The  internal  frictional  force  arising  from  the  vertical  shear 
stress  of  the  horizontal  wind  between  levels  1  and  3  is  written 

^^1  ^3^  (zi  -  z3^  (2g/ir),  where  p  ■  0.44  mb  sec  is  an  empirical 

shear-stress  coefficient.  This  frictional  force  is  applied  with  op¬ 
posite  signs  in  the  equations  of  motion  at  levels  1  and  3.  The  fric¬ 
tional  force  at  the  earth's  surface  (which  affects  level  3  only)  is 
written  cDPAvs(|Vs|  +  G)(2g/ir),  where  CQ  is  the  drag  coefficient,  Vg 
the  (extrapolated)  surface  wind,  and  G  -  2.0  m  sec"1  an  empirical 
correction  for  gustiness.  These  frictional  forces  are  computed  every 
fifth  time  step  in  subroutine  COMP  3  (see  instructions  11500  to  11620). 
See  Chapter  II,  Section  E,  and  Chapter  III,  Subsection  C.10,  for  fur¬ 
ther  details. 

Geopotential 

The  geopotential,  <f>,  of  the  sigma  surfaces  is  used  in  the  subrou¬ 
tine  COMP  2  to  compute  a  portion  of  the  horizontal  pressure  gradient 
force  (see  instructions  5210  to  5700).  The  geopotential  computation 
is  based  upon  the  assumption  that  the  potential  temperature  is  linear 
in  p  space;  it  is  illustrated  in  Figs.  4.8  and  4.9,  Chapter  IV. 

The  geopotential  of  constant-pressure  surfaces  may  also  be  cal¬ 
culated  for  interpretive  purposes,  as  shown  in  Figs.  4.8a  and  4,9a, 
Chapter  IV. 

Grid-Point  Separation 

The  zonal  (west/east)  distance  between  grid  points,  AX,  is  equal  to 
5  deg  longitude  (FORTRAN  symbol  DL0N) ,  for  which  the  actual  distance 
varies  with  latitude  as  given  by  the  map  metric  m  (FORTRAN  symbols  DXU, 
DXP»  ln  Fig-  3.4).  The  meridional  (south/north)  distance  between  grid 
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points,  Acp,  is  equal  to  4  deg  latitude  (FORTRAN  symbol  DLAT) ,  with 
the  equivalent  distance  given  by  the  map  metric  n  (FORTRAN  symbols 
DYU,  DYP  in  Fig.  3.3).  These  variables  are  computed  in  the  subroutine 
MAGFAC  (see  instructions  14360  to  14850).  See  Chapter  III,  Section  B, 
for  further  details. 

Ground  Temperature 

The  temperature  of  the  ground  at  the  earth's  surface  (FORTRAN 
symbol  TG)  is  computed  in  subroutine  COMP  3  (instructions  11010  to 
11200)  as  a  function  of  the  surface  radiation  balance  (short-wave  ab¬ 
sorption  minus  net  long-wave  emission),  evaporation,  and  vertical 
sensible  heat  flux.  This  is  done  under  the  assumption  of  no  heat 
transfer  into  the  ground  (zero  heat  capacity  for  bare  land,  snow- 
covered  land,  or  ice-covered  land).  Over  an  ice-covered  ocean  the 
surface  temperature  is  computed  as  for  bare  land,  except  that  heat 
flux  through  the  ice  is  permitted.  Ice-  and  snow-covered  surfaces 
are  not  allowed  to  become  warmer  than  0  deg  C.  Over  water  surfaces 
the  temperature  is  held  at  the  assigned  sea-surface  temperature  dis¬ 
tribution  (FORTRAN  symbol  TG00).  See  Chapter  II,  Section  G,  for  fur¬ 
ther  details;  and  Fig.  4.25,  Chapter  IV,  for  a  typical  distribution. 

Ground  Wetness 

The  degree  of  wetness  of  the  ground  surface  is  measured  by  a  di¬ 
mensionless  parameter  (FORTRAN  symbols  WET  and  GW)  varying  between  0 
and  1.  This  is  computed  in  subroutine  COMP  3  (instructions  11280  to 
11390)  as  a  function  of  the  surface-moisture  budget  (precipitation, 
evaporation,  and  runoff),  ice-,  snow-,  and  water-covered  surfaces  have 
a  ground-wetness  parameter  equal  to  1  (saturation).  See  Chapter  II, 
Subsection  F.7,  for  further  details;  and  Fig.  4.26,  Chapter  IV,  for'a 
typical  distribution. 


Heat  Balance 

A  net  heating  or  cooling  may  occur  in  either  the  upper  or  lower 
layers  of  the  model  from  the  absorption  of  short-wave  (solar)  radiation, 
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net  long-wave  radiation,  the  convective  heating,  and  (In  the  lower 
eyer  only)  through  large-.cale  conden.atlon  and  the  surface  flux  of 
sensible  heat.  The  sun  of  these  effects  nay  be  cerrmd  the  heat  bal¬ 
ance,  w  ch  on  the  long-term  average  over  the  global  domain  should  be 
approximately  aero.  At  the  earth',  surface  (over  bare  land  or  enow-  or 
ce-covered  land)  a  heat  balance  la  .s.umed  among  the  fluxes  of  short- 

heat  „«dT  rTtl0“'  the  UP”‘rd  Se"Slble  heM  ««•  Shs  latent 
eat  „,ad  for  surface  evaporation,  ihi.  balance  la  used  to  determine 

the  ground  temperature,  and  corresponds  to  a  zero  land  heat  capacity. 

that”h  "t  f,  U  a”Umed  °Ver  1Ce'C0Ve"d  0cea"  surfaces.  except 
heat  flux  through  the  Ice  1,  permitted  (snow  and  Ice  temperature, 

not  exceed  0  deg  «.  Over  water  surfaces  there  la  no  surface  heat 

a  ante  in  the  model  hecauae  the  water',  surface  temperature  la  fixed. 

The  surface  heat  balance  1.  illu. Crated  In  Fig.  4. 31,  chapter  IV.  See 

Chapter  II,  Section  G.  for  further  details. 

Heating 

debacle  heating  occurs  in  the  upper  and  lower  layers  of  the  model 

“  *  “  ^  ^  r‘dlatl°”  <b°th  Sh°rt-  “d  *■*-—>  and  the  con- 

ve  eating.  I„  the  lower  layer  there  la  also  heating  by  large- 

scale  conden.atlon  (PREC)  a„d  by  the  vertical  (turbulent)  flux  of 

“L)7  T  Ih6Se  h"'  S0Ur“S  “*  d^“tad  —  5  time  step. 

30  min)  1„  subroutine  COMP  3  (Instructions  11170  to  11310),  and  are 

use  to  Change  the  temperature  at  levels  1  and  3.  The  total  heating 

<  n  ayera) ,  surface  sensible  heat  flux,  long-wave  heating  (1„  l,yar„ 

(i°  —>•  ™  «  absorption,  J  J' 

rface  long-w.ve  cooling  are  Illustrated  1„  Pi8s.  4.10  and  4-U  < _lg 

^•19  and  4.20,  4.21  and  4.22,  4.23  and  4  in  a  * 

ter  TV  c  ru  *  d  4'3°’  resPectively ,  of  Chap- 

IV.  See  Chapter  II,  Section  G,  for  further  details. 

Ice 

The  distribution  of  surface  Ice  1.  prescribed  In  the  present 
version  of  the  model,  and  Is  shown  In  Pigs.  3.13  and  3.14  for  land  Ice 
snd  as.  ice  by  the  overprinted  symbol  I.  The  elevation  of  the  land  ice 
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is  also  shown  in  Fi8-  3.13,  while  the  sea  ice  is  assumed  to  be  at 
sea  level.  These  ice  locations  are  identified  in  the  topography 
input  deck  (T0P0G)  in  subroutine  INIT  2  by  the  values  <  -105,  with 
the  amount  below  -105  equal  to  the  ice  surface's  elevation  above  sea 
level  (in  10  ft).  In  the  computation  of  the  heat  balance  over  sea 
ice,  the  ice  is  assumed  to  be  300  cm  thick  (HICE)  and  to  have  a  ther¬ 
mal  conductivity  (CTI)  -  0.005  ly  cm  sec"1  deg'1,  and  is  not  allowed 
to  be  wanner  than  0  deg  C  (TICE).  Except  for  its  albedo  (and  not 
being  allowed  to  warm  above  0  deg  C) ,  land  ice  is  treated  in  the  same 
manner  as  bare  land  with  GW  -  1. 

Long-Wave  Radiation 

The  upward  long-wave  radiative  flux  is  computed  at  the  tropopause 
(R0),  at  the  level  2  (R2) ,  and  at  the  ground  (R4) ,  taking  into  account 
the  atmospheric  emissivity,  transmissivity,  and  the  presence  of  clouds. 
This  is  performed  every  5  time  steps  in  subroutine  COMP  3  (instructions 
9750  to  10220,  11040  to  11200).  The  net  fluxes  R2  -  R0  and  R4  -  R2  con^ 
tribute  to  the  change  of  air  temperature  at  levels  1  and  3,  while  the 
surface  flux  R4  contributes  to  the  change  of  ground  temperature  and  to 
the  surface  heat  balance.  These  fields  are  illustrated  in  Figs.  4.19, 

4.20,  and  4.30  of  Chapter  IV.  See  Chapter  II,  Subsection  G.2,  for  fur¬ 
ther  details. 

Low-Level  Convection 

The  effect  of  relatively  shallow  or  low-level  convection  on  the 
surface  temperature  and  moisture  is  parameterized  in  the  model  in  terms 
of  a  generalized  convection  measure.  There  is  no  low-level  convection 
unless  the  lapse  rate  is  unstable  between  levels  3  and  4  (as  measured 
by  the  temperature  parameters  HH4  and  HH3S) .  In  addition,  the  atmo¬ 
sphere  must  be  stable  between  levels  1  and  3.  Under  these  conditions 
the  surface  temperature  (T4)  and  moisture  (Q4)  are  adjusted  to  simu¬ 
late  low-level  convective  transports  every  5  time  steps  in  subroutine 
COMP  3  (see  instructions  8700  to  8790,  9140  to  9350).  See  Chapter  II, 
Section  F,  for  further  details. 
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Mlddle-Level  Convection 

This  form  of  convection  occurs  if  the  atmosphere  is  unstable  be¬ 
tween  levels  1  and  3,  and  alters  the  heat  and  moisture  distribution 
at  these  levels.  Midlevel  clouds  will  be  created  if  the  level-3 
relative  humidity  exceeds  50  percent.  See  subroutine  COMP  3  (instruc¬ 
tions  8810  to  8880)  and  Chapter  II,  Section  F,  for  further  details. 

Moisture 

The  mixing  ratio  (Q3)  is  computed  at  the  lower  level  3  in  the 
model  at  the  points  of  the  tt  grid  in  the  subroutine  COMP  1  (instruc¬ 
tions  3520  to  3740),  and  the  moisture  sources  and  sinks  due  to  evap¬ 
oration  and  condensation  are  computed  every  5  time  steps  in  subroutine 
COMP  3  (instructions  8330  to  8450).  The  upper  model  level  1  is  con¬ 
sidered  dry,  and  the  moisture  advections  are  such  that  total  moisture 
is  conserved  in  the  absence  of  sources  and  sinks.  The  surface  moisture 
balance  is  computed  in  subroutine  COMP  3  (instructions  8540  to  8590, 
8970  to  9120,  11280  to  11410),  and  includes  the  effects  of  evapora-’ 
tion  (E4),  precipitation  (PREC) ,  ground  wetness  (GW),  and  runoff.  The 
moisture  distribution  is  illustrated  in  the  form  of  the  relative  hu¬ 
midity  at  level  3  in  Fig.  4.14,  Chapter  IV,  and  the  total  precipitable 
water  is  illustrated  in  Fig.  4.15,  Chapter  IV.  See  Chapter  II,  Sec¬ 
tion  F,  and  Chapter  III,  Subsection  C.9,  for  further  details. 

Momentum  Advection 

The  horizontal  advection  of  momentum  is  computed  in  subroutine 
COMP  1  (instructions  3750  to  4120)  in  a  way  which  ensures  momentum 
conservation  and  the  conservation  of  kinetic  energy  and  the  square  of 
relative  vorticity  (in  the  absence  of  sources  and  sinks).  This  is 
accomplished  by  keeping  track  of  the  momentum  fluxes  (PU,  PV,  FLUXU, 
FLUXV)  between  neighboring  u,v-grid  cells,  and  with  special  adjustment 
near  the  poles.  The  vertical  advection  of  momentum  is  also  computed 
in  subroutine  COMP  1  (instructions  4690  to  4860),  and  represents  a 
momentum  exchange  between  levels  1  and  3  through  the  large-scale  ver¬ 
tical  velocity  (SD).  See  Chapter  III,  Subsections  C.3  and  C.4,  for 
further  details. 
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Penetrating  Convection 

Like  low-level  convection,  penetrating  or  deep  convection  is 
parameterized  by  a  convection  measure.  For  penetrating  convection  to 
occur,  the  atmosphere  must  be  unstable  between  levels  3  and  4  and  be¬ 
tween  levels  1  and  4,  but  stable  between  levels  1  and  3.  Under  these 
conditions  the  temperatures  at  levels  1  and  3  are  changed  to  reflect 
the  vertical  convective  heat  transport  (see  subroutine  COMP  3,  in¬ 
structions  8700  to  8790,  9140  to  9350)  with  the  surface  temperature 
(T4)  and  moisture  (Q4)  also  changed  every  5  time  steps.  This  convec¬ 
tion  (PCI,  PC3)  also  contributes  to  the  precipitation,  although  it  is 
assumed  that  no  moisture  is  carried  to  the  upper  level  1.  See  Chap¬ 
ter  II,  Subsection  F.3,  for  further  details. 

Potential  Temperature 

The  potential  temperature  6  -  T(po/p)K  (FORTRAN  symbol  TETA)  is 
computed  at  various  levels  in  the  model  for  use  in  vertical  stability 
tests  and  in  the  vertical  interpolation  in  p<  space  for  the  tempera¬ 
ture  and  geopotential  heights  at  0  (or  p)  surfaces.  Here  p  * 

o 

1000  mb  and  <  ■  0.286. 

Precipitation 

The  large-scale  precipitation  rate  (PREC)  is  computed  every  5 
time  steps  in  the  subroutine  COMP  3  (instructions  8610  to  8690)  as  a 
result  of  the  indicated  supersaturation  at  level  3.  The  temperature 
at  level  3  is  also  altered  by  the  corresponding  release  of  latent 
heat.  An  additional  precipitation  rate  (CP)  is  due  to  middle-level 
and  penetrative  convective  processes  (Cl,  C3,  PCI,  PC3) ,  which  also 
result  in  the  latent  heating  of  the  upper  and  lower  layers  (COMP  3, 
instructions  9140  to  9320,  11430  to  11480).  The  large-scale  and 
convective  precipitation  rates  are  illustrated  in  Figs.  4.12  and  4.16, 
Chapter  IV.  See  Chapter  II,  Subsections  F.2  and  F.3,  for  further 
details. 
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Pressure 

The  atmospheric  pressure  (PL)  is  computed  at  various  levels  in 
the  model  at  the  points  of  the  it  grid,  and  is  widely  used  in  the  nu¬ 
merical  integrations  (see  subroutine  COMP  3,  instructions  8020  to  8160). 
The  pressure  of  the  earth’s  surface,  p  ,  (FORTRAN  symbol  P4)  is  car- 
ried  as  a  dependent  variable  through  the  parameter  tt  (FORTRAN  symbol 
"  P8  Pj*  where  p^  ■  200  mb  is  the  assumed  tropopause  pressure. 

The  sea-level  pressure  (illustrated  in  Fig.  4.1,  Chapter  IV)  is  com¬ 
puted  on  the  basis  of  an  assumed  lapse  rate  of  0.6  deg  C/100  m  between 
the  surface  and  sea  level.  Other  pressure  parameters  used  are  an  av¬ 
erage  surface  pressure  (PSF  -  984  mb),  and  a  reference  pressure  (PSL  - 
1000  mb).  The  surface  pressure  tendency  (FORTRAN  symbol  PT)  is  com¬ 
puted  each  time  step  in  subroutine  COMP  1  (instructions  4130  to  4540) 
as  a  result  of  the  solution  of  the  mass-continuity  equation. 

Pressure-Gradient  Force 

The  pressure  force  terms  in  the  equations  of  horizontal  motion 
are  calculated  in  subroutine  COMP  2  (instructions  5210  to  6050)  as  a 
combination  of  the  gradients  of  the  geopotential,  <p ,  and  the  surface- 
pressure  pereineter ,  tt.  These  computations  use  finite  differences  cen— 
tered  at  the  velocity  points  and  are  performed  each  time  step.  See 
Chapter  III,  Subsection  C.6,  for  further  details. 

Radiation 

The  net  radiative  flux  of  both  long-  and  short-wave  radiation  is 
computed  for  the  levels  0,  2,  and  4  bounding  the  upper  and  lower  layers 
of  the  model,  as  well  as  at  the  ground.  These  fluxes  depend  upon  atmo¬ 
spheric  moisture  (in  the  lower  layer),  cloudiness,  scattering,  reflec¬ 
tion  (from  both  the  earth's  surface  and  from  clouds),  the  solar  zenith 
angle,  and  absorption,  and  are  computed  every  5  time  steps  in  sub¬ 
routine  COMP  3  (instructions  9/50  to  11000).  The  radiation  contributes 
to  the  temperature  change  at  levels  1  and  3,  as  well  as  to  the  change 
of  surface  temperature.  See  Chapter  II,  Section  G,  for  further  details. 
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Sea-Surface  Temperature 

The  temperature  at  the  sea  surface  is  prescribed  in  the  present 
version  of  the  model.  The  data  shown  in  Fig.  3.14,  Chapter  III,  ap¬ 
proximate  the  annual  mean  sea-surface  temperature,  and  have  been  used 
in  most  applications  of  the  model.  Any  net  energy  from  the  radiation 
exchange  and  the  fluxes  of  latent  and  sensible  heat  at  the  ocean  sur¬ 
face  is  absorbed  by  the  sea  without  changing  the  surface  temperature. 
The  sea-surface  temperature  is  read  by  subprogram  INIT  2  (instructions 
16020  to  16530)  as  part  of  the  topography  data  (FORTRAN  symbol  TG00) , 
and  may  be  in  either  deg  C  or  deg  F  (but  not  both). 


Sensible  Heat  Flux 

The  (turbulent)  flux  of  sensible  heat  at  the  earth's  surface 
(FORTRAN  symbol  F4)  is  computed  every  5  time  steps  in  subroutine 
COMP  3  (instruction  11250)  as  a  function  of  the  surface  wind  speed 
and  the  low-level  vertical  temperature  gradient  (as  measured  by  the 
difference  between  the  ground,  ocean,  or  ice  temperature  and  the  sur¬ 
face  air  temperature).  This  flux  is  illustrated  in  Fig.  4.18,  Chap¬ 
ter  IV,  and  is  seen  to  be  frequently  negative,  representing  a  sensible 

heat  flux  from  the  air  to  the  ground.  See  Chapter  II,  Subsection  G.3, 

for  further  details. 

Short-Wave  Radiation 

The  incoming  short-wave  or  solar  radiation  is  partitioned  into  a 
portion  subject  to  scattering  S®  and  a  portion  subject  to  absorption 
Sq.  The  latter  component  may  be  absorbed  in  each  of  the  two  model 
layers,  depending  upon  the  moisture  and  cloudiness,  and  the  net  ab¬ 
sorbed  short-wave  radiation  (FORTRAN  symbols  AS1  and  AS3)  is  deter¬ 
mined  eveiy  fifth  time  step  in  subroutine  COMP  3  (instructions  10430 
to  11000);  this  is  part  of  the  diabatic  temperature  change  at  levels 

1  and  3,  as  illustrated  in  Map  20,  Chapter  IV.  The  short-wave  radia¬ 

tion  reaching  the  surface  is  partly  reflected  (depending  upon  the  al¬ 
bedo),  and  partly  absorbed.  The  net  surface  insolation  absorbed 
(FORTRAN  symbol  S4)  is  illustrated  in  Fig.  4.23,  Chapter  IV,  and 
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contributes  to  the  surface  heat  balance.  See  Chapter  II,  Subsec¬ 
tion  G.l,  for  further  details. 

Smoothing 

There  Is  relatively  little  explicit  smoothing  in  the  present 
version  of  the  model,  although  there  is  considerable  averaging  in  the 
finite-difference  formulations.  The  subroutine  AVRX  is  used  to  per¬ 
form  an  effective  zonal  averaging  of  certain  quantities  at  higher 
latitudes  in  subroutines  COMP  1  and  COMP  2.  There  is  also  a  9-point 
spatial  smoothing  of  the  diabatic  heating  at  levels  1  and  3  which  is 
performed  in  subroutine  COMP  3  (instructions  11850  to  12020),  and  a 
similar  smoothing  of  the  temperature  lapse  rate  in  subroutine  COMP  4 
(instructions  12700  to  12860),  See  Chapter  III,  Section  D,  for  fur¬ 
ther  smoothing  details,  and  Subsection  C.l  for  a  discussion  of  the 
subroutine  AVRX. 

Snow  Cover 

In  the  present  version  of  the  model  the  snow  cover  on  the  earth's 
surface  is  prescribed.  In  the  northern  hemisphere,  all  land  surfaces 
(except  ice-covered  land)  north  of  the  latitude  defined  by  the  para¬ 
meter  SN0WN  (see  instruction  7460  in  subroutine  COMP  3)  are  assumed  to 
be  covered  by  snow.  The  southern  boundary  of  this  snow  line  averages 
at  60  deg  N  but  varies  in  time  with  a  period  of  one  year  and  with  an 
amplitude  of  15  deg  latitude,  with  maximum  extent  on  January  25.  In 
the  southern  hemisphere,  a  constant  snowline  SN0WS  (see  instruction 
7470  in  subroutine  COMP  3)  prescribes  snow-covered  land  south  of 
60  deg  S,  but  this  is  overridden  in  the  model's  present  version,  be¬ 
cause  all  points  south  of  60  d-g  S  are  either  ocean,  sea  ice,  or  land 
ice . 

Solar  Constant 

The  value  of  the  solar  constant  is  taken  to  be  2  ly  min"1  - 
2880  ly  day  .  This  value  is  modified  in  subroutine  COMP  3  (instruc¬ 
tion  7610)  to  take  account  of  the  seasonal  variation  of  the  earth/sun 
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distance  in  the  calculation  of  the  FORTRAN  variable  SO  (see  instruc¬ 
tion  15520  in  subroutine  SDET) . 

Temperature 

The  air  temperature  (T)  is  computed  each  time  step  in  the  model 
for  levels  1  and  3  at  the  points  of  the  ir  grid,  and  is  widely  used 
in  the  numerical  integration  (see  instructions  8180  to  8310,  subrou¬ 
tine  COMP  3).  A  number  of  interpolations  and  extrapolations  are  made 

K 

in  p  space  for  the  temperatures  and  potential  temperatures  for  use 
in  the  radiation  and  convection  calculations.  The  surface  air  tem¬ 
perature  (T4)  is  computed  as  a  result  of  the  surface  heat  and  moisture 
balance  (instructions  8960  to  9120,  9340,  subroutine  COMP  3),  while 
the  ground  temperature  itself  (TG)  is  separately  computed.  The  tem¬ 
perature  at  levels  1  and  3  is  illustrated  in  Figs.  4.6  and  4.7,  Chap¬ 
ter  IV,  and  the  surface  air  temperature  is  illustrated  in  Fig.  4.24, 
Chapter  IV. 

Time 

Time  is  measured  with  respect  to  hour  0  for  midnight  at  the 
Greenwich  meridian  (0  deg  longitude),  with  day  400  corresponding  to 
the  28  January  declination  of  the  sun. 

Time  Step 

In  the  main  integration  of  the  model,  the  time  step  At  is  6  min¬ 
utes.  The  friction,  heating,  evaporation,  and  condensation  source 
terms,  however,  are  computed  only  every  fifth  time  step  (every  30  min¬ 
utes)  in  the  subroutine  COMP  3.  In  each  step  of  the  5-step  sequence, 
a  preliminary  estimate  of  the  new  values  of  the  dependent  variables 
is  first  obtained,  then  followed  by  a  final  estimate  in  a  modified 
backward-difference  scheme.  See  Chapter  III,  Section  A,  for  further 
details,  and  subroutine  STEP  (instructions  1850  to  2280).  Once  each 
day  the  total  global  mass  is  adjusted  in  subroutine  GMP,  and  the  solar 
declination  and  earth/sun  distance  are  recalculated.  In  the  present 
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verslon  of  the  model,  the  output  or  history  tepe  of  the  primary  de¬ 
pendent  variables  is  written  every  6  hours. 

Topography 

The  topography  (TGOO)  of  the  earth's  surface  is  prescribed  as 
either  water  (with  a  fixed  surface  temperature),  ice  (with  a  maximum 
temperature  of  0  deg  C) ,  or  land  (which  may  be  snow-covered,  depending 
upon  the  latitude  and  time  of  year) .  The  elevation  of  all  land  points 
is  prescribed  (whether  ice-covered,  snow-covered,  or  bare),  and  is 
shown  in  Fig.  3.13,  Chapter  III;  the  assigned  sea-surface  and  lake 
temperatures  and  ice  locations  are  shown  in  Fig.  3.14,  Chapter  III. 

The  topography  is  read  into  the  program  by  the  subroutine  INIT  2,  and 
the  land  elevation  data  is  decoded  in  subroutine  VPHI4. 

Transmission  Function 

The  transmission  function  for  short-wave  radiation  (FORTRAN 

symbol  TRSW;  see  subroutine  COMP  3,  instructions  10460  to  11000)  is 

0  303 

given  by  the  empirical  expression  1  -  0.271(x)  *  ,  where  (x)  is  the 

effective  water  vapor  concentration  in  a  vertical  atmospheric  column 
(see  subroutine  COMP  3,  Instructions  9750  to  10230).  The  transmission 
function  for  long-wave  radiation  (FORTRAN  symbol  TRANS;  see  subroutine 
COMP  3,  instructions  9910  to  10220)  is  given  by  the  expression 
(1  +  1. 75(x)^'^^]  *.  See  Chapter  II,  Section  G,  for  further  details. 

Tropopauae 

The  tropopsuse  in  the  model  is  assumed  to  be  always  at  the  pres¬ 
sure  p^  ■  200  mb  (FORTRAN  symbol  PTR0P) ,  and  is  used  in  the  definition 
of  the  tropospheric  o-coordlnate  system.  At  this  level  the  boundary 
condition  d  ■  0  is  applied. 

Vertical  Velocity 

The  o-vertical  velocity  ircr  ■  S/2mn  (FORTRAN  symbol  SD  ■  S)  is 
computed  in  the  model  for  the  middle  level  2  from  the  equation  of 
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continuity  as  a  result  of  the  net  horizontal  mass  convergence  (see 
subroutine  COMP  1,  instructions  4320  to  4540).  The  vertical  velocity 
is  used  to  effect  the  vertical  advection  of  momentum  and  temperature, 
and  to  determine  the  large-scale  precipitation  rate;  it  is  illustrated 
in  Fig.  4.13,  Chapter  IV.  See  Chapter  III,  Subsections  C.l,  C.2,  and 
C.8,  for  further  details. 

Wind  Velocity 

The  horizontal  zonal  and  meridional  wind  speeds  (FORTRAN  symbols 
U  and  V)  are  computed  each  time  step  in  the  model  at  the  points  of 
the  u , v  grid,  and  are  widely  used  in  the  program.  These  fields  are 
illustrated  in  Figs.  4.2  to  4.5  in  Chapter  IV.  In  the  subroutine 
COMF  1  a  number  of  spatially  averaged  speeds  and  fluxes  are  defined 
for  use  in  the  horizontal  advections  of  momentum,  mass,  heat,  and 
moisture.  The  wind  velocity  at  the  earth's  surface  (US,  VS)  is  found 
by  linear  extrapolation  in  p  from  levels  1  and  3  (see  subroutine 
COMP  3,  instructions  7490  to  7570),  and  is  used  in  the  determination 
of  the  surface  friction,  evaporation,  and  sensible  heat  flux.  See 
Chapter  III,  Section  C,  for  further  details. 
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VI.  LIST  OF  SYMBOLS 


PURPOSE 

In  order  to  provide  a  complement  to  the  physics  dictionary  pre¬ 
sented  in  Chapter  V,  a  comprehensive  alphabetical  listing  and  iden¬ 
tification  of  all  the  symbols  used  in  the  discussion  of  the  model’s 
Physics  and  numerics  is  given  here.  For  each  symbol  a  brief  identi¬ 
fication,  typical  value,  units,  and  FORTRAN  symbol  (if  any)  is  given. 
Those  symbols  which  occur  at  more  than  one  level  in  the  model  (as 
designated  by  the  subscripts  1,  2,  3,  or  4)  are  listed  following  the 
primary  variable.  Not  separately  listed  are  those  symbols  which  oc¬ 
cur  with  the  superscripts  r  or  n  (denoting  evaluation  at  time  steps), 
those  symbols  which  occur  with  the  subscripts  i  and/or  j,  those  symbols 
with  various  combinations  of  numerical  subscripts  (denoting  grid-point 
locations),  or  those  symbols  representing  a  local  specialization  of  a 
previously  defined  symbol.  In  general,  symbols  which  occur  only  in 
FORTRAN  notation  are  also  not  listed  here  (see  Chapter  VIII). 


SYMBOL  LIST 
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SYMBOL1 

MEANING 

UNITS 

(and  value 
for  constants) 

FORTRAN 

SYMBOL 

0  ) 

“if 

specific  volume 

3  -1 
cm  g 

— 

°3) 

a 

ac 

albedo  of  cloudy  atmosphere 

— 

ALAC 

(  ALC1 

a 

c 

cloud  albedo  (subscripted  by 
cloud  type) 

<  ALC2 

IALC3 

a 

g 

albedo  of  earth's  surface 

— 

ALS 

a 

o 

albedo  of  clear  atmosphere 

— 

ALAO 

6 

vertical  shear  stress  parameter 

2  -1 
0.13  mb  sec  m 

— 

r 

surface  sensible  heat  flux 

ly  day  1 

F4 

rh 

surface  flux  of  static  energy 

i  -1 

ly  sec 

Y 

temperature  lapse  rate  near 
surface 

0.6  deg/100  m 

— 

\) 

T») 

latent  heating  parameter 
-  Lqa(cpT2)"1  5418  deg 

GAM 

C 

sun' 8  zenith  angle 

radians 

C0SZ 

(-  cos  c) 

n 

entrainment  factor 

— 

ETA 

U 

potential  temperature 

62  ( 

deg  K 

TETA 

V 

The  multiple  listing  is  for  symbols  occurring  with  the  subscripts 
1,  2,  3,  or  4;  these  denote  evaluation  at  the  respective  model  levels 
o  -  1/4,  1/2,  3/4,  or  1  (surface) .  The  subscripts  g  and  o  also  some¬ 
times  denote  the  ground  or  surface  level. 
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SYMBOL 

MEANING 

UNITS 

(and  value 
for  constants) 

FORTRAN 

SYMBOL 

o' 

an  average  potential  temperature 

deg  K 

9d 

P^fcial  potential  temperature 

deg  K 

— 

9e 

equivalent  potential  temperature 

deg  K 

K 

thermodynamic  ratio  R/c 

P 

0.286 

KAPA 

\ 

longitude,  positive  eastward  from 
Greenwich 

radians 

— 

AX 

U 

longitudinal  spacing  between  grid 
points 

vertical  shear  stress  parameter 

ff/36  radians 
(-  5  deg) 

0.44  mb  sec 

DL0N 

n 

pressure  area  weighting  -  rrmn 

2  . 
m  mb 

FD(J,I) 

nu 

local  four-point  average  of  H 
centered  on  u,v  grid  points 

2  . 
m  mb 

FDU(J.I) 

V 

(1)  surface  pressure  parameter 
-  ps  -  PT 

(2)  constant 

mb 

3.14159 

SP,P(J,I) 

PI 

• 

V 

dp 

surface  pressure  chanae  ■  — 2. 

dt 

mb  sec”* 

PT 

IT 

8 

standard  value  of  n 

800  mb 

PM 

U 

ir 

local  four-point  average  of  * 
centered  on  u,v  grid  points 

mb 

— 

:.)■ 

lir  density 

g  cm  ^ 

RH0,  R04 
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SYMBOL 

MEANING 

UNITS 

(and  value 
for  constants) 

FORTRAN 

SYMBOL 

Pw 

water  density 

.  -3 

1  g  cm 

— 

a 

Stefan-Boltzman  constant 

1.171  x  10-7 
ly  day  *deg  ^ 

STB0 

°  ) 

al 

°3 

<  vertical  coordinate 
"  (P  "  PT>/(Pg  “  PT) 

SIG 

4  1 
°2  ) 

sigma  vertical  velocity  -  do/dt 

-1 

sec 

SD 

1 

time-step  index 

— 

TAU 

T  ) 

intermediate  variables  in 
penetrating  convection 

deg  K 

TEMP 

T 

r 

relaxation  time  for  cumulus 
convection 

3600  sec 

TCNV 

,  * 
t(u  ) 

long-wave  transmission  function 

_ 

TRANS (X) 

■  [l  +  1.75(u*)0,416]  1 

;b1 

long-wave  transmission  above  and 
below  a  given  level 

— 

— 

* ) 

M 

geopotential  of  sigma  surface 

2  -2 
m  sec 

PHI 

geopotential  of  a  ■  4  surface 

2  -2 
m  sec 

VPHI4 
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SYMBOL 

MEANING 

UNITS 

(and  value 
for  constants) 

FORTRAN 

SYMBOL 

9 

latitude,  positive  northward 
from  equator 

radians 

LAT(J) 

A9 

latitudinal  spacing  between 
grid  points 

tt/45  radians 
(■  4  deg) 

DLAT 

'P 

arbitrary  variable 

— 

— 

n 

earth's  rotation  rate 

2tt  radians/day 

R0T 

u> 

pressure  vertical  velocity 
■  dp/dt 

— 

— 

A 

absorbed  short-wave  radiation 

ly  day  * 

— 

s! 

absorbed  short-wave  radiation  in 
upper  and  lower  layers 

ly  day  1 

AS1,  AS3 

A 

V 

eddy  diffusion  coefficient 

2  -1 
m  sec 

— 

t 

arbitrary  vector,  whose  latitu¬ 
dinal  and  longitudinal  com¬ 
ponents  are  A^  and  A^ 

— 

— 

A 

e 

saturation  vapor  pressure  constant 

21.656 

— 

A(u  ,z) 

short-wave  absorption  function 
-  0.271(u*  cos  O0,303 

— 

TRSW(X) 

A. 

4> 

general  representation  for 
advection  terms 

— 

— 

a 

earth's  radius 

6.3750  x  106  m 

RAO 

B 

conduction  coefficient  for  ice 

ly  day  1deg  1 

— 

B 

generalized  conduction  coefficient 

ly  day_1deg_1 

TEM 

B 

e 

saturation  vapor  pressure  constant 

5418  deg 

— 

C 

condensation  rate 

-2  -1 
g  cm  sec 

— 
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SYMBOL 

MEANING 

UNITS 

(and  value 
for  constants) 

FORTRAN 

SYMBOL 

F4 

upward  sensible  heat  flux  from 
surface 

ly  day  ^ 

F4 

fh 

vertical  heat  flux  at  surface 

ly  day  * 

— 

f 

Coriolis  parameter  ■  20  sin  cp 

sec  ^ 

F(J) 

G 

gustiness  correction  for  surface 
wind 

2  m  sec  ^ 

G 

GW 

ground  wetness 

— 

GW 

GWM 

maximum  ground  water 

30  g  cm  ^ 

GWM 

g 

gravity 

9.81  m  sec  ^ 

GRAV 

h/c 

P 

static  energy 

deg  K 

— 

h3/cp 

static  energy  at  level  3 

dpg  K 

HH3 

VCP 

static  energy  at  level  4 

deg  K 

<  HH4 

1  HH4P 

V'P 

intermediate  stability  parameter 

deg  K 

HH4 

• 

H 

diabatic  heating  rate  (per  unit 
mass) 

cal  g  *sec  * 

— 

H1 

diabatic  temperature  change  (over 
5At)  in  layer 

deg 

HI 

H3 

diabatic  temperature  change  (over 
5At)  in  layer 

deg 

H3 

H 

average  of  H3 

deg 

H 

he 

surface  latent  heat  flux 

ly  day  * 

— 
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SYMBOL 

MEANING 

UNITS 

(and  value 
for  constants) 

FORTRAN 

SYMBOL 

*  , 

h  /c 

P 

stability  parameter 

deg  K 

— 

* , 

VCP 

stability  parameter  at  level  1 

deg  K 

HH1S 

h>P 

stability  parameter  at  level  3 

deg  K 

HH3S 

I 

maximum  value  of  1 

72 

IM 

i 

zonal  grid-point  index 

— 

I 

J 

maximum  value  of  j 

46 

JM 

j 

meridional  grid-point  index 

— 

J 

K 

moisture  parameter 

— 

VAK 

k 

vertical  unit  vector 

— 

— 

L 

latent  heat  of  condensation 

580  cal  g"1 

— 

i 

level  index  ■  1  at  o^,  -  3  at  o^ 

— 

L 

LR 

nominal  lapse  rate 

deg  K 

— 

*  (61  - 

M  ) 

M 

vertical  mass  flux  in  cloud 

-2  ”1 
g  cm  sec 

— 

M  /M . 

ratio  of  the  molecular  weight  of 

0.622 

„ 

water  vapor  to  dry  air 

in 

map  metric  or  zonal  distance 

m 

f  DXU 

between  grid  points  ■  aAA  cos  9 

\  DXP 

n 

(1)  map  metric  or  meridional 

m 

(DYU 

distance  between  grid  points 

(DYP 

=*  aAcp 

(2)  arbitrary  time  step 
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SYMBOL 

MEANING 

UNITS 

(and  value 
for  constants) 

FORTRAN 

SYMBOL 

'  i 

M 

M 

(1)  pressure 

(2)  polar  grid-point  index 

mb 

PL 

Po 

reference  pressure 

1000  mb 

PSL 

PCM 

precipitation  rate  from 
middle-level  convection 

mm  day  * 

— 

pcp 

precipitation  rate  from 
penetrating  convection 

,  -1 
mm  day 

— 

PLS 

large-scale  precipitation  rate 

mm  day  ^ 

— 

Ps 

surface  pressure 

mb 

P4 

PT 

tropopause  pressure 

200  mb 

PTR0P 

Apc  I 

4p»i 

cloud  pressure  thickness 

mb 

— 

• 

Q 

rate  of  moisture  addition 
(per  unit  mass) 

— 

— 

q 

mixing  ratio 

— 

— 

q3 

mixing  ratio  at  level  3 

— 

(  Q3 

Q3R 
(  Q3RB 

q4 

mixing  ratio  at  level  4 

— 

Q4 

qg 

mixing  ratio  at  ground 

— 

QG 

4q3 

mixing  ratio  change  (at  level  3) 

— 

— 
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UNITS 

(and  value 

FORTRAN 

SYMBOL 

MEANING 

for  constants) 

SYMBOL 

qs 

saturated  mixing  ratio 

— 

QS 

qse 

effective  ground  saturation 

— 

— 

mixing  ratio 

R 

dry  air  specific  gas  constant 

2  -1  -2 
287  m  deg  sec 

RGAS 

R. 

* 

general  representation  for  non- 

— 

— 

advective,  non-source  terms 
■  D,  -  A . 

4>  i|> 

j  R00 

R' 

clear  sky  long-wave  radiation 

ly  day  1 

R20 

n 

at  level  n 

(  R40 

(  ROC 

R" 

overcast  sky  long-wave  radiation 

ly  day  1 

R2C 

n 

at  level  n 

(  R4C 

(  RO 

R 

n 

weighted  sum  of  R' ,  R" 
n  n 

ly  day  1 

R2 

(R4 

RO  J 

upward  long-wave  radiation  flux 

ly  day  1 

RO 

M 

at  level  0 (o  -  0) 

R2  J 

upward  long-wave  radiation  flux 

ly  day  * 

R2 

R*l 

at  level  2 

R4  j 

upward  long-wave  radiation  flux 

ly  day  ^ 

R4 

M 

at  level  4  (surface) 

RH  ) 

3  ( 
RH,  ( 

relative  humidity  (scaled  0  to  1) 

— 

RH 

4 ) 

s 

dry  static  energy 

cal  g 

— 

• 

s 

vertical  velocity  measure 

2  u  -1 

m  mb  sec 

SD(J,I) 

-  2mmrcr2 
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SYMBOL 

MEANING 

UNITS 

(and  value 
for  constants) 

FORTRAN 

SYMBOL 

(■rf 

A 

flux  of  at  level  i  in  clear  sky 

ly  day  1 

— 

«)' 

A 

flux  of  S  at  level  i  in  overcast 
o 

ly  day  1 

sky 

fcj 

A 

flux  of  reflected  from  top  of 

ly  day  * 

\  il 

cloud  type  i 

su 

local  four-point  average  of  S 
centered  on  u,v  grid  points 

2  .  -1 
m  mb  sec 

SDU 

s 

o 

solar  constant  (after  modification 
for  earth-sun  distance) 

~2880  ly  day'1 

S0 

Ss 

o 

solar  radiation  subject  to 
scattering 

ly  day  1 

SS 

sA 

o 

solar  radiation  subject  to 
absorption 

ly  day  1 

SA 

S 

g 

total  solar  radiation  absorbed 
at  ground 

ly  day'1 

S4 

*3. 

S  ' 

g 

g 

flux  of  S^  absorbed  by  ground 

ly  day  1 

— 

sA 

g 

A 

flux  of  Sq  absorbed  by  ground 

ly  day  1 

— 

s* 

general  representation  for  source 
terms 

— 

— 

S4 

short-wave  radiation  absorbed  at 
the  surface 

ly  day  1 

S4 

T  ) 

Ti 

temperature 

deg  K 

T 
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SYMBOL 

MEANING 

UNITS 

(and  value 
for  constants) 

FORTRAN 

SYMBOL 

T 

0 

melting  point  of  Ice 

273.1  deg  K 

TICE 

To 

tropopause  temperature 

deg  K 

TTR0P 

T4 

T4 

air  temperature  at  level  4 
(surface) 

deg  K 

T4 

Tcl 

Tc3 

air  temperature  In  cloud 

deg  K 

— 

4Ti| 

4T3  | 

temperature  change  (of  layer) 

deg 

— 

<4I1>  ) 
CMl 

(AT  ) 

cm) 

temperature  change  due  to  middle- 
level  convection 

deg 

— 

(AT1}  ) 
CPI 

(AT  ) 

CP) 

temperature  change  due  to 
penetrating  convection 

deg 

(AT  ) 

LS 

level-3  temperature  change  due  to 
large-scale  condensation 

(-  PREC*L/c  ) 

P 

deg 

-- 

T 

g 

ground  temperature 

deg  K 

<  TC 

I  GT(J,I) 

T 

gr 

revised  ground  temperature 

deg  K 

)  TCR 

1 GT(J,I) 

T_ 

T 

tropopause  temperature 

deg  K 

TTR0P 

TU 

local  four-point  average 
temperature  centered  on 
u,v-grld  points 

deg  K 

— 

T 

1 

an  average  temperature 

deg  K 

— 
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SYMBOL 

MEANING 

UNITS 

(and  value 
for  constants) 

FORTRAN 

SYMBOL 

TD 

lapse  rate  measure 
-  (T3  -  T^/2* 

deg  mb  * 

TD 

t 

time 

sec,  min,  hr, 
or  days 

— 

At 

time  step 

6  min 

DTM 

U 

west/east  advectlve  flux 

2  .  -1 
m  mb  sec 

— 

fSf 

U 

southwest/northeast  advectlve  flux 

2  ,  -1 
m  mb  sec 

— 

zonal  (eastward)  wind  speed 

-1 

m  sec 

U 

.*! 

“n‘l 

effective  water  vapor  content  in 
column  (to  level  n) 

-2 

8  cm 

j  EFV 
(  EFVT 

* 

u 

CD 

effective  water  vapor  content  in 
column  (entire  atmosphere) 

-2 

g  cm 

EFVO 

c  c  c  c 

*>  »  U»  »  I-*  *  » 

zonal  mass  flux  ■  nnu 

2  ,  -1 
m  mb  sec 

PU(J,I) 

\! 
u*  ( 

e2) 

cloud  water  vapor  equivalent 

65.3  g  cm  ^ 

/  EFVC1 
|  EFVC2 
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SYMBOL 

MEANING 

UNITS 

(and  value 
for  constants) 

FORTRAN 

SYMBOL 

X 

eastward  coordinate  (on 
rectangular  projection) 

— 

— 

y 

2  \ 

northward  coordinate  (on 
rectangular  projection) 

height  of  sigma  surface 

m 

zzz 

V 

Az 

standard  value  of  z ^  -  z^ 

5400  m 

— 

(A) 

designation  for  preliminary 
estimate  in  time  integration 

— 

— 

(  ) 

designation  for  provisional  value 
prior  to  incorporation  of  source 
terms  in  time  integration 

— 

— 

o 

a  smoothing  operator  denoting  a 
horizontally  averaged  value 

— 

— 

N 

(  )  ° 

an  operator  denoting  the  three- 

point  longitudinal  smoothing 

routine  in  AVRX(K),  which  is 

automatically  applied  N  times 

0 

— 

— 
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VII.  THE  FORTRAN  PROGRAM 

A  listing  of  the  computer  program  actually  used  in  the  numerical 
simulations  is  perhaps  the  most  important  part  of  the  documentation. 

In  the  FORTRAN  program  listing  given  in  Section  A  below  the  sequential 
numbering  of  all  cards  in  the  program  deck  is  reproduced  on  the  right- 
hand  side  of  the  listing  to  permit  easy  identification  of  specific  in¬ 
structions.  Following  the  listing  of  the  '’ntegration  program  and  the 
common  block,  the  program  listing  for  the  map  routines  is  presented  in 
Section  B  with  a  separate  instruction  card  numbering. 

A. _ INTEGRATION  PROGRAM  LISTING 


Subprograms 


The  integration  program  itself  is  divided  into  a  main  or  control 
routine  and  a  number  of  subroutines.  In  the  order  of  their  appearance 
in  the  program,  these  subroutines  (and  an  indication  of  their  func¬ 
tions  and  initial  program  instruction  numbers)  follow: 


COMMON  —  lists  variables'  common  and  equivalence  assignments 
CONTROL  —  controls  program  execution  (0120) 

OUTAPE  —  reads  and  writes  history  ^ape  (0800) 

GMP  —  calculates  global  average  surface  pressure,  and  ad¬ 
justs  pressure  for  mass  conservation  (1250) 

VPHI4  —  decodes  land  elevation  (1510) 

IPK  —  packs  data  for  output  Q610) 

KEY  —  logical  key  control  (1770) 

STEP  —  controls  sequence  of  time  steps,  and  readies  data 

for  execution  of  subroutines  COMP  1,  COMP  2,  COMP  3, 
and  COMP  4  (1850) 

COMP  1  —  calculates  mass  flux  and  convergence;  horizontal  ad- 
vection  of  momentum,  heat,  and  moisture;  vertical  ad- 
vection  of  momentum  and  heat  (2290) 

COMP  2  —  calculates  Coriolis  and  pressure-gradient  forces  (4880) 
AVRX  --  performs  zonal  smoothing  (6780) 

COMP  3  —  calculates  radiative  heating,  convection,  precipitation, 
surface  and  ground  temperature,  surface  evaporation  and 
sensible  heat  flux,  surface  friction;  calculates  se¬ 
lected  data  for  output  (7070) 
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COMP  4  -  calculates  diffusion  of  momentum  (suppressed  in  the 

present  version);  performs  areal  smoothing  of  the 
temperature  lapse  rate  (12040) 

INPUT  —  reads  input  data  and  controls  generation  of  selected 
constants  (.12880) 

MAGFAC  —  calculates  map  scale  factors  and  Coriolis  parameter 


INSDET  —  adjusts  day,  month,  and  seasonal  sun  position 
SDET  "  calculates  solar  zenith  angle  and  related  parameters 

INIT  1  ”  prepares  for  cold-start  initial  conditions  (inopera¬ 
tive  in  the  present  version)  (15620) 

INIT  2  —  reads  and  encodes  surface  topography  data  (sea-surface 
temperature  and  land  elevation)  (15770) 


— — guide  to  the  Main  Computational  Subroutines 

The  bulk  of  the  computations  involved  in  the  solution  of  the  main 
dynamical  equations  of  the  model,  Eqs.  (2.27)  to  (2.35),  are  performed  in 
the  subroutines  COMP  1,  COMP  2,  COMP  3,  and  COMP  4.  An  outline  of 
these  calculations  is  given  below  in  the  sequence  performed  each  time 
step  in  the  program  by  the  subroutines  COMP  1  and  COMP  2,  followed  by 
an  outline  for  subroutines  COMP  3  and  COMP  4  which  are  performed  every 
five  time  steps.  The  initial  instruction  location  is  cited  for  each 
major  program  subdivision. 


Calculation 

Initial 

Instruction 

COMP  1 

Formation  of  area-pressure-weighted  variables 

2540 

Horizontal  mass  flux 

2710 

Zonal  smoothing  (AVRX) 

2830 

Horizontal  polar  mass  flux 

2970 

Horizontal  temperature  advection 

3260 

Horizontal  moisture  advection 

3390 

Horizontal  momentum  advection 

3770 

Continuity  equation  (vertical  velocity  and 

surface  pressure  tendency) 

4130 
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Calculation 


Initial 

Instruction 


COMP  1 

Vertical  temperature  advection  4560 

Vertical  momentum  advectlon  4690 

COMP  2 

Coriolis  force  5010 

Pressure-gradient  force  5220 

Zonal  smoothing  (AVRX)  5970 

Thermodynamic  energy  conversion  6070 

Zonal  smoothing  (AVRX)  6210 

Polar  adjustment  6410 

Return  to  unweighted  variables  6580 


COMP  3 


Radiation  and  heating  functions  7150 

Surface  wind  magnitude  7490 

Radiation  constants  7590 

Solar  declination  7740 

Surface  topography  (ocean,  ice,  bare  land,  snow- 

covered  land)  7820 

Pressure  variables  8030 

Temperature  and  moisture  variables,  and  test  for 

dry-adiabatic  instability  8180 

Ground  temperature  and  wetness  8540 

Large-scale  precipitation  8610 

Middle-level  convection  8700 

Preparation  for  air/earth  interaction  8900 

Surface  temperature  8970 

Penetrating  and  low-level  convection  9140 

Cloudiness  9400 

Long-wave  radiation  9750 

Surface  albedo  10240 
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Calculation 

Initial 

Instruction 

COMP  3 

Solar  (short-wave)  radiation 

10430 

Ground  temperature 

11020 

Sensible  heat  flux  and  evaporation 

11220 

Moisture  budget 

11300 

Total  heating 

11410 

Surface  friction 

11500 

Areal  smoothing  of  heating 

11850 

COMP  4 

Horizontal  momentum  diffusion  (inoperative 

in  present  version) 

12270 

Areal  smoothing  of  lapse  rate 

12700 

Jb _ Common  and  Equivalence  Statements 

Most  of  the  variables  and  constants  of  the  program  are  communi¬ 
cated  between  the  subprograms  via  a  common  block,  stored  in  the  single 
array  BC0MN.  The  following  equivalents  should  be  noted: 

BC0MN(1)  BC0MN(8OO)  equivalent  to  C(l) — C(800) 

where  C(K)  is  defined  to  be  equivalent  to  all  the  constants  and  one¬ 
dimensional  arrays  [and  MAPLST(3,  40)], 

BC0MN(8O1)  BC0MN(67O4O)  equivalent  to  QT0T(1, 1,1)— QT0T(46,72,2O) 

where  QT0T  is  equivalent  to  all  the  two-  and  three-dimensional  arrays, 

QT0T(1 , 1,1)  QT0T (46,72,9)  equivalent  to  Q(l,l,l) — Q(46, 72 ,9) 
QT0T (1 , 1 , 10)  QT0T (46 , 72  ,20)  equivalent  to  QT(1,1,1)—QT(46, 72,11) 
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and 

Q(J,I,1)  equivalent  to  P(J,I)  surface  pressure  (?r) 

Q(J,I,2)  equivalent  to  U(J,I,1)  level  1  zonal  wind  (u^) 

Q(J,I,3)  equivalent  to  U(J,I,2)  level  3  zonal  wind  (u^) 

Q(J,I,4)  equivalent  to  V(J,I,1)  level  1  meridional  wind  (v^) 

Q(J,I,5)  equivalent  to  V(J,I,2)  level  3  meridional  wind  (v^) 

Q(J,I,6)  equivalent  to  T(J,I,1)  level  1  temperature  (T^) 

Q(J,I,7)  equivalent  to  T(J,I,2)  level  3  temperature  (T^) 

Q(J,I,8)  equivalent  to  Q3(J,I)  moisture  (q^) 

Q(J,I,9)  equivalent  to  T0P0G(J,I)  surface  elevation  and  ocean 

temperature 

The  array  QT(J,I,K)  for  K  «  1  to  8  is  similarly  equivalent  to  all 
the  temporary  and  intermediate  values  of  the  above  quantities,  i.e., 
PT(J,I),  UT(J,I,K),  etc.  Occasionally  Q  and  QT  are  used  in  the  pro¬ 
gram  rather  than  the  original  variables,  especially  in  the  time  steps 
where  all  Q  quantities  are  treated  at  once  (see,  for  example,  instruc¬ 
tions  1960  to  '’220)  .  The  array  QT  is  also  equivalent  to  all  other  two- 
and  three-dimensional  arrays  in  the  program  not  requiring  permanent 
storage.  The  common,  dimension,  and  equivalence  statements  are  given 
on  the  immediately  following  pages. 
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CODE  LISTING 

C 44 4444 44 444444444444444444 44 44 444 4444 44444 444 4444 4 4444444444 44444444444000000  jQ 

C 44444444 44444444  *********************************************  m**$*moaoQoo20 
-*  *00000030 


*00000040 

*00000050 

*00000060 


COMMON  GW,GT 

COMMON 

*  BCOMN 

0  I  M  E  N  S  I  0  N 

*  BCOMN ( 67040 ) ,  CI800),  OTOT ( 46 , 72  *  20 ) ,  0(46*72*9),  QT(46*72*11) 
*,  P(46,72 ) ♦  U( 46 *72*2 ) *  V<46,72,2>,  T(46,72*2),  03(46,72) 

*,  PT (46, 72 ) «  HT (46,72,2) ,  VT(46,72,2>,  TT(46,72,2),  03T(46,72) 
*,FD(46,72 ) ,  H(46,72,2),  PIJ(46,72  ),  TD(46,72) 

*♦  PHI (46,72),  W ( 46,72) ,  T0PDG(46,72) 

*♦  “ONV (46,72) ,  P V ( 46 , 72 ) ,  S0(46,72) 

*♦  GW  ( 46, 72  )  ,  G1' (46,72)  ,  00(46,72,9) 

*,  WORK  1(46,72),  W0RK2(46,72) 

*,  TS ( 46, 72 ) ,  SN (46, 72 ) 

DIMENSION 
L  AT  ( 46 )  ,  DXIM46),  DXPI46),  0YUI46),  DYP(46) 

SINU46),  COSL  ( 46 )  ,  AXU(46),  AXVI46),  AYUI46),  AYV(46) 
DXYPI46),  F ( 46 ) ,  SIGI2),  AMONTH ( 3 ) ,  XLABLI9),  MAPLST(3,40) 

DXV  AND  DYV  ARE  INTERM  VARIABLES  ONLY 
DXVI46),  DYV ( 46  ) 

OUIVALENCE 


* 

*, 

*, 


C* 

c* 

C*  COMMON  BLOCK  FOR  M  I NTZ-AR AK AWA  TWO-LEVEL  GENERAL  CIRCULATION  MODEL 
C* 

c* 

C44444444444444444444444444444444444444444444444444444444*44444444444444oSoom,!o 

c  444444444444444  *  **  *  4444444444444444  *  *  *  *  *  *  *  *  *  *  *  *  *  v  *  *  *  _  _  *  *  *  _  t  m  m  0 0 0 0  0 0  9  0 

COMMON  GW,GT  00000100 

000001 10 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 
00000560 


* 

4, 
4, 
4  , 
4, 
4  , 
4, 
4, 
4, 
4, 
4, 
4, 

4 

*, 

*, 

*, 

*, 

*, 

*, 

*, 

*, 

*, 

*, 

4, 

4. 


( OTOT ( 1 ) , 0 ( 1 ) ) ,  ( OTOT ( 29809 /  *QT ( 1 ) ) ,  ( BCDMNI 1 ) , C ( 1  )  ) 

( BCDMNI 801 ) ,OTOT( 1 ) ) ,  (0(1), P ( 1 ) ) ,  ( 01 1 , 1 , 2 ) »IM  1 ) ) 

(0(1, 1,4), VI  1) ),  <Q( 1 , 1 ,6)  .  T< 1 ) ),  ( 0 ( 1,1, 8), 03 1  1) ) 

(Q( 1,1,9) , TDPDG ( 1 ) ) ,  ( OT ( 1 ) ,0D( 1 ) ,PT( 1 ) ) 

(QT( 1 ,1 ,2 ) ,UT ( 1 ) , WORK  1 ( 1 ) ) 

(Om,l,3),TSIl>) 

(0T( 1,1,4) ,VT( 1 ) , WORK 2 (  1  >  ) 

( OT I  1 , 1 , 5 ) , SN( 1 ) ) 

(0T( 1,1 ,6) ,TT( 1 ) ) ,  ( OT ( 1 , 1,8) ,Q3T( 1 ) ) 

(OT ( 1,1,9) ,CDNV( 1 ) ,S0(  1 ) ) 

( OT ( 1,1, 10), HI  1 ),PV(  1 ) ,PHI ( 1 ) ,W< 1) ) 

(0T( 1,1,11 ) ,PU( 1 ) ,F0(  1 ) , TO ( 1 ) ) 

EQUIVALENCE 

( C  (  1  )  ,  JM ) ,  ( C ( 2 )  ,  I M )  ,  IC(3),JTP)»  ( C ( 4 ) , K  TP ) ,  (C(5),LTP) 

( C ( 6 ) ,MTP ) ,  (C( 7) ,NDOUT)  ,  ( C ( 8  )  ,R E STRT ) ,  (C(9),TAU) 

(C( 10),TAUI ) ,  ( C ( 1 1 ) , T  AUO ) ,  (C(12),TAUD),  ( C <  1 3 > , TALE > 

( C  ( 1 4 ) , T AUH ) ,  ( C ( 15 ) , TAUC ) ,  (C(16),ID),  ( C ( 1 7 ) , OT ) 

(C ( 18 ) ,DLAT ) ,  (C( 19  > ,DLDN) ,  (C(20),RAD),  ( C ( 2 1 ) ,RSOI ST ) 

(C ( 22 ) «OCLK ) ,  ( C ( 23 ) , S I  NO) ,  ( C ( 24 ) ,COSD ) ,  ( C ( 25 ) , TOFDAY ) 

( C ( 26 ) ,MNTHDY ) ,  ( C ( 2 7 ) ,DA YPYR  )  ,  ( C 628 ) ,RDTPER ) ,  ( C ( 29 ) , SDEDY ) 
(C ( 30) ,SDEYR) ,  ( C ( 3 1 ) , EONX  )  ,  (C ( 32  )  , APHEL ) ,  ( C ( 33 ) , DECMAX  ) 

( C ( 34  )  ,ECCN ) ,  ( C ( 35 ) , DAY  )  ,  ( C ( 36  )  ,GRA V ) ,  (C(37),RGAS) 

(C  (  38  )  ,KAPA  )  ,  (C  (  39)  »PSF  )  ,  (  C  (  40  )  ,  PTRDP  )  ,  (C(41  ),PS>L) 

( C ( 42  )  , TCNV ) ,  ( C ( 44  )  , A  )  ,  ( C ( 45 ) ,NCYCLE ) 

( C  ( 46 ) , NC  3 ) ,  ( C ( 47 ) , FM  )  ,  (C(48),ED) 

( C ( 5 7 ) , P I ) ,  ( C ( 58 ) ,  ZMM  > 

(C ( 59) ,NPDL ) ,  (C ( 60) ,SPDL ) ,  (C (61 ) ,MRCH) ,  ( C ( 62 ) , STAGJ  ) 
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C 


*’  (C(63) t STAGI ) v  (C (64 ) , SIG < 1  ) ) ,  (C ( 66 ) « AMDNTH( 1 ) ) 

divalence 

*  (C'69),XLA8Lm  ),  <C(78),LAT(1)),  <C( 124) f OXU< 1 ) ) 

’  rlU2!’n!!P<ln’  (C  <  2  lfe  >  *OYU  <  1  »  1  *  (  C(  262  )  *OYP  (  1  )  ) 

*’  *r(?ciPi*  n  **  ( c  (  354  )  t  E  (  1  )  ) ,  ( C  (  400  ) t  S INL ( 1  )  ) 

*  rltaf  ,C0SL  <ln»  ( C  ( 492  )  «AXU(  1  )  )  ♦  ( C  (  538  )  ? AX V ( 1 ) ) 

*♦’  <C(  797)  JnSTFP  )  !  ’  (C  W^R^ioLIC  J  1  ’  ’  *  < C  «  676  >  *MAPLS  T  (  1  )  ) 
*»  (C ( 799 ) • TREAOY ) t  ( SI  NT  *  I S I  NT ) 

*♦  (OXV( 1 ) »OXP( 1 ) ) t  (DYV( 1 ) ,OYP ( 1  )  ) 


REAL  LAT,  KAPA,  NPOL 

LOGICAL  KEYS*1, BIT, MAPGEN, RES TRT,KEY, TREAOY 
COMMON  /VKEYV/  KEYS(32) 

INTEGER  SOEDY «  SOE YR 


00000570 

00000580 

00000590 

00000600 

00000610 

00000620 

00000630 

00000640 

00000650 

00000660 

00000670 

00000680 

00000690 

00000700 

00000710 


nnnn  °  °  ■V.'V'VOOOO 
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o  ****************************  *****,«<.*v***  ********************  ***  *******00000010 

C#  *****************  ********  *************************>’.***  ****  ************QQQQQQ2Q 

*00000030 

*00000040 

C*  MI  NTZ-AR AKAWA  TWO-LEVEL  ATMOSPHERIC  GENERAL  CIRCULATION  MODEL  *00000050 
£*  *00000060 

C*  ************************  *****************  **************«t***«t«i*********0OO00O80 

*****************************************„,jl„<1,>,t,(t,(t<t,(M)li(liMi(ii(ii(iiMi(|<ti(i^i(ii(ii(ii(ii)i))i0ooooo9o 

00000100 

„  .  00000110 

CONTROL  00000120 

*  00000130 

/  DD  DISP-OLD.DSN-MFS727. ABN. COMMON  00000140 

/  ,  *  00000150 

LOGICAL  EVENT .CHECK  .PASS2.EVNTH.  NOOUT .VIVA  00000160 

DIMENSION  C X XX ( 800  )  00000170 

E VENT ( XTAU ) 3  MOD (N$TEPfIFIX(XTAU*3600#/DT+0#l) )  .EQ.  0  00000180 

^-.FALSE.  00000190 

DO  100  J*1.32  00000200 

Inn  .KLYS«J,’*FALSE-  OoSoflO 

RESTRT-  TRUE  00000220 

KtiIRT-.TRUE.  00000230 

VIVA»  .TRUE.  00000240 

CALL  INPUT  00000250 

00000260 

NSTEP  =  TAU*3600./I)T*0.1  00000280 

RESTRT-. FALSE •  00000290 

MAIN  COMPUTATIONAL  CONTROL  00000310 

00000320 


/  DD  D1SP-OLO.DSN-MFS727. ABN. COMMON 
/  DD  * 

LOGICAL  EVENT .CHECK .PASS  2 . EVNTH» NOOUT . VI VA 

DIMENSION  CXXX(BOO) 

EVENT ( XTAU I -MODI NSTEP,IFIX(XTAU*3600./DT*0.1) )  ,E0.  0 
PASS2-. FALSE. 

DO  100  J*1 *  32 
100  KEYS! J)». FALSE. 

?00  KNT  =0 

RESTRT-. TRUE. 

VIVA-  .TRUE. 

CALL  INPUT 


NSTEP-TAU*3600./I)T*0.1 
RESTRT-. FALSE. 


MAIN  COMPUTATIONAL  CONTROL 


310  NSTFP-NSTEP+1 

TAU=FLOAT(NSTEP)*ABS(DT)/360O.*l.F-3 
IF  (TAU.GT.TAUE)  GO  TO  1200 
TOFOAY-».MOD(  TAU.ROTPFR  ) 

NOOUT-. NOT. (EVFNT(TAUO)  .OR.  KEY ( -B  )  ) 

IF  (NOOUT  .OR.  MODI NSTEP.NC3 )  .EQ.  0)  GO  TO  320 
NOOUT-. TRUE. 

KF YS ( 8 ) -. TRUE • 

320  CONTINUE 
C 

CALL  STEP 

IF  (EVENT  (24.))  CALL  GMP 


00000330 

00000340 

00000350 

00000360 

00000370 

00000380 

00000390 

00000400 

000004)0 

00000420 

00000430 

00000440 

00000450 
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C 

C 

C 


VARIOUS  CHECKING  AND  HISTORY  OPTIONS 


630 


IF  I E  VENT ( TAUD I )  CALL  SOFT 
IDAY*TAU/ROTPER 

rn  inV!?T,TAUHn  GO  TO  1000 
GO  TO  310 

1000  CONTINUE 

READ  (KTP )  TAUX 

IF  (TAUX. GT. 0.0)  GO  TO  1100 

CONT?N(»ETAlJ'TAUH+TAUX,,r,T‘,0n  Gn  Tfl  1100 
BACKSPACE  KTP 
WRITE  (KTP)  TAU,  C 
CALL  OUTAPE (KTP,? ) 

PRINT  1005, TAU 

FORMAT  (IX, 'WRITE  TAPE  ',Efl.?| 

GO  TO  310  ’ 

TAUX*  TAUX 

UU  Ex!tX’'S0ME  MESS  °N  TAPF,*1X.E12.5.1X,IR, 
WRITE  (MTP,1210)  TAU 

FORMAT  (IX, 'TERMINATING  AS  REQUIRED  AT  TAU=',E8.2) 


1001 


1005 

1100 

1110 

1200 

1210 


9200 

9670 

t 

9680 

9715 


C 

C 


FORMAT  (  '  WMSG040  (  S  A4^  •  ^  Swf  TCHI  Nr' ^RoITtapf*  M0DFL  N°W  Rl,NN,NG' 
"  ON  DAY  ',14,'  ,  HOUR  ',E6^r  TAPE  T0  TflPF  Mi 

FORMAT  (  '  WMSG035  SIM  TIME  K  MV  i  , 

FORMAT  ,'  WMSG036  CaJ'ThJs  D^T  *’F7-3> 


I A ,  •  / 


FNO 


00000460 

00000470 

00000480 

00000490 

00000500 

00000510 

00000520 

00000530 

00000540 

00000550 

00000560 

00000570 

00000580 

00000590 

00000600 

00000610 

00000620 

00000630 

00000640 

00000650 

00000660 

00000670 

00000680 

00000690 

00000700 

100000710 

,00000720 

00000730 

00000740 

00000750 

00000760 

00000770 

00000780 

00000790 


o  o 
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SUBROUTINE  OUTAPEIK.l) 

//  Of)  D1SP=0LD,0SN*MES727. ABN. COMMON 
//  OD  * 

IFM.E0.2)  GO  TO  20 
READ  I K )  P 
READ  (K)  U 
REAO  (K)  V 
REAO  (K)  T 
REAO  IK)  03 
REAO  (K)  TDPOG 
REAO  (K)  PT 
REAO  (K)  GW 
REAO  (K)  TS 
READ  (K)  GT 
REA"  <K)  SN 
REAO  <K)  TT 
REAO  ( K )  03T 
REAO  <K)  SO 
READ  (K)  H 
REAO  <K)  TO 
RETURN 
20  CONTINUE 
WRITE  (K)  P 
WRITE  (K)  U 
WRITE  IK)  V 
WRITE  IK)  T 
WRITE  IK)  03 
WRITF  (K)  TOPOG 
WRITE  (K)  PT 
WRITE  (K)  GW 
WRITE  IK)  TS 
WRITE  IK)  GT 
WRITE  IK)  SN 
WRITE  IK)  TT 
WRITE  IK)  03T 
WRITE  IK)  SO 
WRITE  IK)  H 
WRITE  IK)  TO 
T  AUX  *-A6S I T  AU ) 

WRITE  (K)  TAUX,  C 
BACKSPACE  K 

THE  NEGATIVE  RECORD  PREVENTS  NOISE.  MISSING  RECORDS. 
AND  MISSING  TRAILER  LABELS. 

RETURN 
END 


OOOOOBOO 
OOOOOfl 1 0 
00000020 
00000B30 
000008*0 
00000850 
00000860 
00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
00000930 
000009*0 
00000950 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
000010*0 
00001050 
00001060 
00001070 
00001080 
00001090 
00001100 
00001 1  10 
00001120 
00001130 
000011*0 
00001150 
00001 160 
00001170 
00001180 
00001190 
00001200 
00001210 
00001220 
00001230 
000012*0 
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S  U  B  R  0  U  T  INF 
*  GH£ 

/* 

//  00  DISP»OlD,OSN.MFS727. ABN. COMMON 

//  00  • 

DIMENSION  ZM<46) 

F 1 M« IM 

00  135  J *  1 . JM 
ZM(  J 1*0.0 
00  136  1  - 1  •  I M 

136  ZM(J|«JM(J|  ♦  P(J,I| 

135  ZM(J»«ZM(J»/FIM 

WTM»0. 

ZMM«0. 

00  137  J«|,JM 

WTM  »  WTM  ♦  ABS< DXVP ( J I ) 

137  ZMM  >  ZMM  ♦  ZM<JIMBS<OXYP<JM 
ZMM.ZMM/WTM  ♦PTROP 

OELTAP  »  PSF  -  ZMM 
00  301  1 • I  *  IM 
00  301  J* 1 . JM 

301  P<J,1»  »  P<  J* I  I  ♦  OELTAP 

WR 1 7E (6. 1 38  I  OFL  TAP 

13B  FORMAT  (  •  PRESSURE  AOOFO  *  t.FlO.BI 
RETURN 
ENO 


00001250 

00001260 

00001270 

00001280 

00001290 

00001300 

00001310 

00001320 

00001330 

00001 360 
00001 350 
00001 360 
00001370 
00001 380 
00001390 
00001 400 
000014 | 0 
00001420 
00001430 
00001440 
00001450 
00001460 
00001470 
00001480 
00001490 
00001  SOU 


-266- 


FUNCTION  VPHI4  I  J 1 1  ) 

C  " 

/* 

//  no  0ISP«0Ln*0SN«MES727.AHN. COMMON 
u  no  * 

VPM|4«0. 

IF  (TOPOGI J,  I »  .LT.  1.0)  VPHl 4* AMOD I -TOPOGI J* | ) « 10.E5 ) 
G 

rfturn 

ENO 


00001510 

00001520 

00001510 

00001540 

00001550 

00001560 

00001570 

000015RO 

00001590 

00001600 


FUNCTION  IPKULtlR) 

00001610 

INTEGER  I MALF*2 1 2 1 

00001620 

EQUIVALENCE  1 1  HALF ( 1 ) • 1  WO ) 

00001610 

(HALF  1 1 ) ■ IL 

00001640 

1  HALF  1 2 ) ■  1 R 

00001650 

1 PK ■ I  WO 

00001660 

RFTURN 

00001670 

ENTRY  IRHUPKWD) 

000016R0 

IHO-IPKHU 

00001690 

|RMa (HALF ( 2 | 

00001700 

RETURN 

00001710 

ENTRY  ILHI  IPKWm 

00001720 

1 M0« | PKHO 

00001710 

ILM-IHALFU  ) 

00001740 

RETURN 

00001750 

END 

00001760 

LOGICAL  FUNCTION  K  E  Y  I  M  ) 
LOGICAL  KEVS*1 ( 32 ) 

COMMON  /VKEYV/  KEYS 
N»I ABSIM) 

KFV-KEYSIN) 

IF  (M  .LT.  0)  KFVSIN1-. FALSE. 

RETURN 

ENO 


00001770 
00001 7R0 
00001790 
OOOOlflOO 
0000 1  A  1 0 
00001A20 
0000 1  RIO 
00001A40 


O  O  o  o 
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SUBROUTINF  STEP 

n  OO  OISP»OLD,OSN*MES727. ABN. COMMON 
n  oo  * 


main  loop  of  integration 

FORWARD  STEP  (CENTERED  IN  SPACE.  I 
MRCH»1 

on  310  K»l,8 
on  310  i«i , im 
on  310  j«i,jm 
310  QT( J, I ,K)=Q( J,I,K» 

THRP.TAII/2*. 

PRINT  9999, TAD, THRP 
9999  FORMAT  (IX,  •TIME*,,2X*F8.2»2X,F9.*) 
CALL  COMP  I 
CALL  C0MP2 
00  360  K«1,R 
00  360  |«1, IM 
00  360  J=1 , JM 
TEMP«0(J, I,K» 

0( J, I ,K»«OT( J,  I  ,K I 
360  OT I J , I , K I =TEMP 
C 

C  BACKWARD  STEP 

C 

NS*M0()(NSTFP,NCVCLF  I 
MRCH=2 

IF(NS.E0.1»  MRCH*3 
IFfNS.E0.2l  MRCHs* 

CALL  COMP  1 
CALL  C0MP2 
DO  380  K  =  l,8 
DO  380  !»1, |M 
00  380  J«1,JM 
TFMP«0( J,I,K» 

0(J,I,K»«0T(J,I,K» 

380  0T( J, | ,K|«TEMP 
C 

IF  (MOO(NSTFP,NC3».NE.O  »  GO  TO  *00 
call  COMP* 

CALL  C0MP3 
<•(>0  RETURN 
FNO 


00001850 
00001860 
00001870 
000018R0 
00001890 
00001900 
00001910 
00001920 
00001930 
000019*0 
00001950 
00001960 
00001970 
00001980 
00001990 
00002000 
00002010 
00002020 
00002030 
000020*0 
00002050 
00002060 
00002070 
00002080 
00002090 
00002100 
00002110 
00002120 
00002130 
000021*0 
00002150 
00002160 
00002170 
00002180 
00002 1  90 
00002200 
00002210 
00002220 
00002230 
000022*0 
00002250 
00002260 
00002270 
00002280 


r>  o  o  o  o  ooooooor>o 
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SUBROUT  INF  COMP  l 

/* 

//  00  01SP= 0L 0, DSN =MFS727. ABN. COMMON 
//  00  * 
jmmi*jm-i 
IMM2-1M-2 

E IM«IM 
SIG1-SIGI 1 ) 

S1G3-SIGI2) 


MRCH-1 

MRCH-2 

MRCH-3 

MRCH»4 


CENTERED  IN  SPACE  AND 
CENTERED  IN  SPACE  AND 
UP-RIGHT  ONCENTEREO  IN 
OOWN-LEF T  ONCENTEREO  IN 


FORWARD  IN  TIME 
BACKWARD  IN  TIME 
SPACE  AND  BACKWARD  IN  TIME 
SPACE  AND  BACKWARD  IN  TIME 


TIME  EXTRAPOLATION  INTERVAL  FOR  ADVECTION  TERMS 


TEXCO-DT 

IEIMRCH.FO.il  TEXC0=0.5*DT 


PREPARATION  FOR  TIME  EXTRAPOLATION 
TRANSFORMATION  TO  AREA-PRESSURE  WEIGHTED 
OT  CONTAINS  VARIABLES  TO  WHICH  TENDENCIES 


VARIABLES 
ARE  TO  HE  ADDED 


2100 


2110 


2120 

C 


DO  2100  I  ■ 1 . I M 
DO  2100  J-l.JM 
EDI  J,  I  l-PTI J, | I *DX VP  I J ) 

03T ( J.  I I-03TI J , I |*FOI  J,  |  | 

DO  2120  L-1,2 

DO  2120  1*1, IM 

I P 1 *MOD { I , I M | ♦ 1 

DO  2110  J«1,JM 

TTIJ, |,LI»TTIJ,|,L)*FD|J,| | 

DO  2120  J-2.JM 


IF  (J  .EO,  21  FDU-0.25*(ED(2, 1  1 ♦F 0 ( 2, IP1 » )♦ 

JM*  F0u"°«?5*IF0I  JM-1,  I  1*601  JM-1 
UT I J, | ,L I »UT I J, I ,L I •EDO 


VT(J,|,L)»VTIJ,|,LI*FD0 


1  I  ) 

.1  ) 

I  ) *FDI JW, |  I 


00002290 
00002300 
00002310 
00002320 
00002330 
00002  360 
00002350 
00002360 
00002370 
000023B0 
00002390 
00002400 
00002410 
00002420 
00002430 
00002440 
00002450 
00002460 
00002470 
00002400 
00002490 
00002500 
00002510 
00002520 
00002530 
00002540 
00002550 
00002560 
00002570 
000025R0 
00002590 
00002600 
00002610 
00002620 
00002630 
00002640 
00002650 
00002660 
00002670 
OOOO260O 
00002690 


-269- 

c 

00002700 

c 

COMPUTING  MASS  FLUX  *  P  PU  # 

00002710 

c 

*  PV  UV  * 

00002720 

c 

00002730 

2149 

L  =  1 

00002740 

2150 

on  2160  1*1,  IM 

00002750 

1  P 1  *MOO  1  1  ,  1 M )  + 1 

00002760 

DO  2160  J*2 , JMM 1 

00002770 

IFIMRCH  ,LE.  2)  PU(J,I)*0.25*I OYO (J)*U(J,|,L)+I)YU(J+1)*U(J+1,I, 

L ) 1 000027B0 

IFIMRCH  .EO.  3)  PU(J,I  )  =  0.5*0Y()(J*1  )*(J(J+1«I,L) 

00002790 

IFIMRCH  ,E0.  41  PU  (  J  ,  I  )  =0.5*DYIt  (  J  )*U(  J,  I  ,L  I 

00002800 

2160 

CONTINUE 

0000281 0 

C 

00002820 

CALL  AVRX(ll) 

00002030 

c 

00002040 

00  2 1  BO  1*1, IM 

00002 R 50 

IP1-M00I l,IM>+; 

00002B60 

I M 1 =M00( I ♦ I  MM2 , IM ) ♦ 1 

00002870 

00  2170  J*2 , JMM 1 

00002880 

2170 

piiu,n*pu(  j,m*«p(  j,i)+p(j,ipi  n 

00002890 

on  21B0  J*2,JM 

00002900 

IFIMRCH  ,LF.  21  PV(J,I)s0»25*0XU(J)*(V(J«I*L)+V(J«IM1,LI) 

00002910 

1 

"  *<p(  j,i»4pi  j-i,m 

00002920 

IFIMRCH  • FO,  3)  PV( J, 11*0.5*0X111 J)*V( J, 1 , L >*< P( J, 1 )*P( J-l, 1 ) ) 

00002930 

IFIMRCH  ,E0.  4)  PVI J, I  I =0.5*0XU( J )* VI J, |M1,L )•< PI J, 1 ) +M J-l , 1 ) ) 

00002940 

2 1  BO 

CONTINUF 

00002950 

C 

00002960 

C 

EOO 1 VALFNT  PU  AT  POLES.  PV(1,I)  IS  USFO  AS  A  WORKING  SPACF. 

00002970 

C 

000029R0 

VM 1 *0. 0 

00002990 

VM2*0.0 

00003000 

on  2185  1*1, IM 

00003010 

VM1«VM14PV(2,11 

00003020 

21H5 

VM2*VM2*PVI JM, | ) 

00003030 

VM 1 *VM 1 /F IM 

00003040 

VM2.VM2/F1M 

00003050 

PVI 1,1 )«0.0 

00003060 

00  2190  1*2, |M 

00003070 

2190 

PVI 1 , 1 |*PV( 1, l-l)+(PV(2,l 1 -VM  1  ) 

00003080 

VM 1*0.0 

00003090 

DO  2192  1*1, IM 

00003100 

2192 

VM1 *  VM 1 ♦PV 11,1 1 

00003110 

VM 1  * VM 1 /F  IM 

00003120 

00  2195  1*1, |M 

00003130 

2195 

PUI 1, 1 )*-IPV( 1 ,| 1 -VM 1 1*3.0 

1)0003140 

pvn ,  n«o.o 

00003150 

on  2200  1*2, |M 

00003160 

2200 

PVI 1 , 1 »*PV( 1, 1-1 ) ♦ ( PV ( JM, II-VM2 I 

00003170 

VM2«0.0 

00003180 

on  2202  1*1, IM 

00003190 

2202 

VM2*VM2»PV( 1,1) 

00003200 

VM2* VM2/F IM 

00003210 

on  2205  1*1, |M 

1)0003220 

2205 

PUI JM , | )*(PVI 1, 1 I-VM2 1*3.0 

00003230 

C 

00003240 

o  o 
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HORIZONTAL  ADVECTION  OF  THERMODYNAMIC  ENERGY  AND  MOISTURE  EQUAT I ONSOOOO 3250 


EXC0*0.5*TEXC0 
on  2220  I >1, |M 
I P 1 =MOO ( I  *  I M  J  +  1 
on  2210  J  =  2 * JMM 1 
ELUX»EXCO*PU( J,|  ) 

ELUXT«FLUX*(T( J,  I *L)+T(J,IR1,L)) 

IE  IIJ  .EO.  2  .OR.  J  .ED.  JMM1 )  .ANO.  ELUX  .LT.  0.) 

*  ELUXT»ELUX*2.*T(  J,  IP1,L) 

IE  ((J  .EO.  2  .OR.  J  .FQ.  JMM1)  .AND.  ELUX  .GE.  0.0) 

*  ELUXT=ELUX*2.*T ( J  *  I .L ) 

T T  I  J . I ,L )*TT ( J, I , L )-ELUXT 

TTI J, I  PI, l l-TTI J, IPl.L >*ELUXT 
IF  (L.EO.l)  ELUX=-0.25*FLUX 
IF  (L.E0.2)  ELUX=1.25*ELUX 
Q3M»Q3 ( J , I ) ♦03  I J  *  I P 1 ) 

IEIQ3M.LT.10.E-10)  GO  TO  2210 
C  10. E- 10  IS  A  RELATIVELY  SMALL  NUMBER 
ELUX0»FLUX*03M 

I E ( 03 IJ*I ).LT .03 ( J.IP1)  .AND.  FLUX.GT.O.) 

*  ELUX0*ELUX*4.*03( J,I ) *03 ( J , I P 1 ) /Q 3M 

I F ( 03  <  J. I ) .GT . 03 1 J. I P 1 )  .AND.  ELUX.LT.O.) 

*  FLUXO«ELUX*A. *03 ( J *  I  I *03 ( J , I  PI ) /0  3M 
03T  ( J  *  I  )  »03T  I  J  *  I  )-ELIIXQ 

03T  (J»  |P1  )  =  03  T  I  J «  IP1  )  ♦ FLUXQ 
2210  CONTINUE 

DO  2220  J*2,JM 
FLUX»FxCO*PV( J, I ) 

ELUXT-ELUX*ITI  J,  I  ,L  ) *T I J-l , I ,L  I  ) 

IE  (J  .EO.  2  .AND.  FLUX  .LT.  0.)  F LUX T »F LUX*2 .* T < 2 . I , L ) 

IE  (J  .EO.  JM  .AND.  ELUX  .GT.  0.)  FLUX T *E LUX*2 . • T ( JM- 1 , I , L ) 
IE  (J  , FO.  2  .AND.  ELUX  .GE.  0.)  FLUX T«E LUX*2 .* T I  1 . I . L ) 

IE  (J  .EO.  JM  .ANO.  ELUX  .LE.  0.)  FLUX T *F LUX*2. • T ( JM, | , L ) 

TTIJ,  I  *L  )«TT I J.  I *L)*ELUXT 

TT(J-1, | ,L  )*TT( J-l, I.L ) -FLUX T 

IE  (L.EO.l)  ELUX»-0.25*ELUX 

IE  (L.E0.2 )  FLUX* 1. 25*FLUX 

03M»03( J, I ) >03 ( J-l, I ) 

IEIQ3M.LT.10.E-10)  GOTO  2220 
C  10. E- 10  IS  AN  ARBITRARY  LOWER  LIMIT 

FLUXQ*ELUX*Q3M 

IF(Q3(Jf|).LT.Q3(J-ltl )  .AND.  ELUX.LT.O.) 

*  ELUX0»ELUX*A.*03( J,l ) *03 (J-l, I )/Q3M 
IF(03( J, I ) .GT.Q3I J-l, | )  .ANO.  FLUX.GT.O.) 

*  ELUX0«ELUX*4.*03(J.I >  *Q3( J- 1 » I ) /Q3M 
03T(J»l)*Q3T(J,|)'ELUXO 

03T ( J-l, I )«03T( J-l, | ) -FLUXQ 
222 0  CONTINUE 
C 
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00003430 
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00003470 
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00003500 

000035)0 

00003520 
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HORIZONTAL  ADVECTION  OF  EQUATION  OF  MOTION 

FXCO=TEXCO/12. 

FXC01=TFXC0/24. 

00  2320  1=1, IM 

IP1*M00( I , IM  )  +  | 

IMI =M00( I  ♦  I  MM2 « IM )♦  I 
00  2310  J=2 «  JM 

FLUX=FXCO*  (  Pll(  J,  I )  ^pu  (  J-I  ,  I  )  +  PU(  J,  I M  I  I  ♦Pti  (  1-1  .  im  l  )  i 
FL1JXU  =  FLUX*UI(J,I,L)>U(J.IM1.U)  1  ,M1 

UT  ( J  ,  I  ,L  )  *UT  (  J,  1  ,L  )  ♦FLUXII 

UT  (J,  (Ml ,L )=UT(J, |MI, L) -FLUX U 
FLUXV=FLUX*( VI J, I ,L )+V( J, IMI ,L ) ) 

VTI J, I ,L ) =VT ( J, I ,L l+FLUXV 

2310  VT(J,|M1,L)=VT(J,|MI,L)-FLUXV 
DO  2320  J=2 , JMM 1 

FLUX«FXCO*(PV(J,|  UPVIJ.IPI  )+P  VI  J-f  I  ,  I I+PVIJ+1,  |pi  j  j 
FLUXU  =  FLUX*  (111  J,  I  ,L  (•flJI  J*  I  ,  |  ,L  1 1 
UT  ( J*l, I , L ) =UT ( J*1 , I ,L l+FLUXU 
UT  I J, I ,L )=UT ( J, | ,L l-FLUXU 
FLUXV«FLUX*( VI J,I,L )*V( J*I , I ,L ) ) 

VT ( J*1 , I ,L )=VT ( J*1 , I ,L 1 +FLUXV 

VT(J,|,U=VT(J,I,L)-FLUXV 

FLUX«FXC01*(PU( J,| )4PU( J,IM1 > ♦PV ( J, I ) +pv (  u I . n ) 

fluxu=flux*(u(j*i,i,l)*u(j,imi.l)»  ,m 

UT ( J*1 , | ,L ) =UT ( J*1 , I , L  > ♦FLUXU 
UT (J, IMI , L ) =UT ( J, IMI ,L I-FLUXU 
FLUXV=FLUX*(VI J*I,I,L)*V(J,IM1.L) ) 
VT(J+l«],L)=VT(J+l,i,L)+FLUXV 

VT(J,|M1,L)=VT ( J,IM1,L I -FLUX  V 

FLUX=FXC01 * ( -PU ( j , | I-PUI J, IM| )*PV( J, I ) ♦PV I J* I , I ) ) 
FLUXU«FLUX*(U(  J*1  ,  IMI  ,L  )*ll(.|,  I , L  )  ) 

UT (J  +  l, IMI, L)*UT(J*1, IMI, L) ♦FLUXU 

UT ( J , I ,L ) =UT ( J, I ,L l-FLUXU 
FLUXV«FLIIX*(V( J*l, IM1,L)+V(J,|,L) 1 
V!,J+1*  IMltL  )*VT(  J+l  ,  |M1  ,L  l+FLUXV 
2320  VT ( J, I ,L ) =VT ( J, | ,L l-FLUXV 


00003750 
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00003770 

000037B0 

00003790 

00003800 

00003R I  0 

00003R  20 

00003830 

00003B40 

00003850 

00003860 

00003R70 

00003RB0 

00003890 

00003900 

00003910 

00003920 

00003930 

00003940 

00003950 

00003960 

00003970 

00003980 

00003990 

00004000 

00004010 

00004020 
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00004040 

00004050 
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o  o  o 


-272- 


C  CONTINUITY  EQUATION 
C 


DO  2400  I-1.IM 
IH1=H00( I  +  | MM2 « I M ) ♦  I 
00  2400  J=l,JH 

If=  IJ.EO.l)  C0NVM=-PV(2,I 1*0.5 
IF  (J.EQ.JM)  CONVM=PV< JM,| )*0.5 

IF  (J.GT.l  .AND.  J.IT.JMI  CONVM*- 1 PU I  J  ,  I  )  -PUU.IM1I 

IF  It.EO.n  CONVI  JtllaCONVM  . . . 

IF  (L.EQ.2)  PV( J, 1 1 =CONVM 
2400  CONTINUE 

IFIL.E0.2I  GO  TO  2410 
l»2 

GO  TO  2150 
2410  CONTINUE 


CONV  IS  HASS  CONVERGENCE  AT  L*l  AND  PV  IS  THAT  AT  L=2. 

2411  PB1*0.0 
PB2-0.0 
PB3-0.0 
PB4.0.0 

00  2402  I «  1  •  |M 
PR1»PB1*C0NV I  1,1) 

PB2*PB2*CONV( JM, I ) 

PB3*PB3*PV ( 1,1) 

2402  PB4*PB4*PV( JH, I | 

PH1-FH1/PIM 
PB2*PB2/F I M 
PM3-PB3/FIH 
PB4-PB4/EIH 
00  2405  I  *  1  •  |M 
CONVH,  II.PHl 
CONV (  JM ,  |  ) »  PH2 
PVI 1.II-PB3 
2405  PVI JM, II-PB4 

00  2420  1*1, |M 
00  2420  J* 1 , JM 

PIT*CONVIJ,n*PV(J,|» 

SOIJ,  n«CONV(  J,  II-PVI  J,  |  ) 

PTIJ, | ) *PT ( J, | ) +OT*P | T /OX YP I J ) 


00004130 

00004140 

00004150 

00004160 

00004170 

00004 1  BO 

00004190 

00004200 

00004210 

00004220 

00004230 

00004240 

00004250 

00004260 

00004270 

000042R0 

00004290 

00004300 
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00004340 

00004350 
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000043B0 
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ENERGY  CONVERSION  TERM  IN  THERMODYNAMIC  ENERGY  EOUAT I  ON 


Pll«PTRnP*SIGl*PI 
PL3=PTR0P*S1G3*P( 
PK1«P11**KAPA 
PK3*PL3**KAPA 
TETAM«0.5*(T( J,I, 
TT ( J* I t 1 >»TT ( j, | # 

TT|J,I,2>.TT( J,I» 

CONTINUE 


J#I  ) 
J.  I  > 


1 >/PKl*T( J, I ,2 I/PK3) 

1 )  +DT*( S IG 1 *KAPA*P ( J, 1 > *T ( J ,  I 

-SO(J, I »*TFTAM*PK1  ) 

2) +DT*(SlG3*KAPA*P(J, I  )*T ( J,  I 

♦SOI J,1  >*TETAM*PK3) 


.  1 

»2 


)*PIT/PL1 

)*PIT/PL3 


VERTICAL  ADVECT  I  ON 


OE  MOMENTUM 


2500 


2510 

C 

C 


EXC()«0.5*TEXCCI 
00  2510  I-l.IM 
I P 1 «M00( 1 1 1 M ) 4  J 
DO  2510  J«2,JM 

SDU«0.25*CSDf J» I »*SD( J, IP1 )4S0(J-1, I )*S0( J-l t IP1 ) ) 

IE  (J  .EO.  2 )  SDU«0.25*(S0(2.I >*SD( 2* IP  1 )> *SD ( 1 , I ) 

IE  (J  ,E0.  JM)  S0U»0.25*I SOI JM-1, l »*SDI JM-1 » IP1 ) >*SOI JM. I ) 

VAO»EXCO*SDU*  1 1)  (J,I,1)4U  I  J  •  I  «  2  )  I 

UT ( J  y 1 1 2 ) *UT I Jt 1 «  2 ) ♦VAD 

UT(J,Itl)»UT( J, I,1)-VAD 

VAD«FXCO*SDU*IV  IJ,Itl)*v  (J,I,2)) 

VT I J, I ,2)«VT I J, I  .2  I+VAD 
VT(J,I,1)-VT(J, I,1)-VA0 


RETURN 

END 
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StJBROUTINF  COMP2 

/* 

II  OO  01 SP-OLO, DSN-ME  S727# ABN. COMMON 
//  00  * 

c 

JMM 1 -  JM- 1 
IMM2-IM-2 
FIM-IM 
TEXCO-OT 

IFIMRCH.EQ.il  TEXC0»0.5*0T 
C  IF  IKEVI31II  TEXCO-OT 

HRGAS-RGAS/2. 

CORIOLIS  FORCE 

FXC0-0.125*TEXC0 
00  3140  L  ■  1 , 2 
00  3110  1-1,  IM 
IM1-H00I  1*1882, IHIM 

Eon,n«o,o 

FOI JM, 1 1 -0,0 
00  3110  J-2 , JMM 1 
3110  FOI J,l l-FI JI-DXYPIJ) 

*  ♦,25*(U(  J,  I  ,L  (♦LI  J,|Ml,L  MOI  J»l,  I  ,L  )*U(  J»l,  |M1,LM 

*  *(oxui ji-oxoij*: n 

00  3140  1-1, IM 

|M1 -MOOI I ♦ I  MM2 , I M | ♦ 1 

00  3140  J-2,JM 

ALPHA-FXCO*!  PI  J,  114-PI  J-l,  I  n*IFOI  J,  I  (♦FOI  J-l,  I  I  I 
oil  J,  I  ,L  l-IITI  J,  I  ,L)*ALPHA*V(J,I,L  I 
UT(J,IM1,LI-UT(J,|M1,L)«ALPHA*VIJ, 1 M 1 ,  l  3 
VT  (J,  |  ,L  I  -  VT  I  J,  I  ,L  1-ALPHA-lll  >1,  I  ,L  I 
3140  VT(J,IMl,l.|-VTl  J,1M1,L|-ALPMA*II«J,|M1,L> 


00004880 

00004890 

00004900 

00004910 

00004920 

00004930 

00004940 

00004950 

00004960 

00004970 

00004980 

00004990 

00005000 

00005010 

00005020 

00005030 

00005040 

00005050 

00005060 

00005070 

00005080 

00005090 

00005100 

00005110 
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C 

C 

c 

3200 

C 

C 

C 


3205 


3210 

C 

C 

C 


3220 


32  10 

C 

3250 

3250 

C 


PRESSURE  GRADIENT 
00  3350  L«  1 , 2 
CflMPUTAT  ION  OE  PH  I 


On  3210  1*1,  |H 
00  3210  J«1,JM 
PH|5* VPH |5  1 J , | | 

VPS1«  PIJ, I  1*0. 25/(P(J, n*o.25 
VP:.3«  P(J*I)*0.75/(P(J, |  )*o.75 


PTR0P1 

PTROPl 


VPK3.l!/JpKin**254PTRt>P^^‘J’n**^4^,,nPn**KA‘’A 
IE1L.F0.2I  GO  TO  3205 

CnFl.(vPSl*0.5*(vPK3-l.l/KAPAl*HRr,AS 

CnE?*(VPS3*0.5*» 1.-VPK1 1/KAPA J*HRGAS 

Gn,To’32*onE1*T,J’,’n4COF2*T,J*,’?,4PM,A 

rncI‘!VPci*0,5*,VMK3‘1‘,/KAPA»*H«r.ftS 
C0E5*(VPS3-0.5*1 1.-VPK1 l/KAPA 1*HRGAS 

CCINT  INUF  *C0E3*  T  ‘  J *  1  •  11 4C(1F5* T  (  J,  |  ,  ?  , 

GRADIENT  (IF  PHI 

FXC0«0.25*DT 
FXCOl *0.5*01 
00  3220  |*| . |M 
P1K1, I  1*0. 
on  3250  1*1, I M 
IPl*MnO( l,|H|*l 
IMl.MOOl I ♦ I  MM2 , I M ) » | 
on  3750  J=2, jm 

TFMPl*(p(jt|p|i,p(j( ,  ,  ( 

P'M  J, | (.TEMPI 

IMlR2CHP,Fon^,rn,:nM*,PM,‘J,n”PM,'J“,*M**"*,»‘JI 
IMHRCH  .FO.  31  Gil  TO  3730 

I F  ( MRf.H  .FO.  5)  r,n  TO  3750 

MRCM*  1  OR  7.  (ENTERED  IN  SPACF. 

VI(J»|*L)aVICJ.|,L  I-FXCOMEMR7 

VT  1  J,  I M 1  ,L  »  •VT1.I,  I H 1  ,L  l-FXCn*TEMP7 

GO  TO  3750 

MHCM*3.  OP-R  ir.HT  ONCENTEREO. 

VT  (  J,  |HJ  ,L  (  *VT  ( ,(.  |H1 ,1  I-EXCOI  *TEMP/ 

GO  in  3750 

MMCMrA.  DOWN-LEFT  ONCENTEREO. 

VT ( J, 1 ,L I *VT ( J. I ,1 ) -EXC01*TEMPP 
CONT INOE 


(PM|  U,|P|  (-PHIU,  |  ,  , 


00005710 

00005720 

00005230 

00005250 

00005750 

00005750 

00005770 

000057R0 

00005290 

00005300 

00005310 

00005370 

00005330 

00005350 

00005350 

00005360 

00005370 

000053R0 

00005390 

00005500 

00005510 

000C5570 

00005530 

00005550 

00005550 

00005560 

00005570 

000D55R0 

00005590 

00005500 
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000055R0 
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C  GRADIENT  OF  P 

C  S  I  GMA*P*AL PHA  IS  STORED  AT  PHI 

C 

DO  3260  1-1, IM 
DO  3260  J- 1 , JM 

3260  PMI(J,n«SIG(U*P(J.I>*RGASM(J,l.Ll/(PTROP*SIG(U*P(J.I  I) 

DO  3290  I  -1 , IM 
IP1-M0DC I ,IH»4l 
I M  1  -MOD ( I ♦ I  MM2 , |M )  + 1 
DO  3290  J-2.JM 

TEMPI -(PH  II  J,  |P1  »4PHI  (J,m*(P(J,lPl)-P(j,|)) 

PU( J» I I -TEMP1*PU( J , I ) 

TEMP2«(PHI(J,I )+PH|(J-l,| ) I • ( P ( J, I ) — P ( J— 1 « | ) ) *OXU( J I 
IE(MRCH  ,E0.  3)  GO  TO  3270 
IE(MRCH  .EO.  41  GO  TO  3280 
C  MRCH  -  1  OR  2.  CENTEREO  IN  SPACE. 

VT(  J,  I  ,U-VT(  J,  I  ,U-FXC0*TEMP2 
VT(  J,  |M1,U»VT(  J,  IM1  ,L  )-F*C0*TEMP2 
GO  TO  3290 

C  MRCH-3.  OP-RIGHT  UNCENTERFO. 

3270  VT(J, IM 1 ,L ) -VT ( J , IM1,L 1-FXCD1*TEMP2 
GO  TO  3290 

C  MRCH-4 .  DOWN-LEFT  UNCENTERFO 

32R0  VT ( J,I,L)-VT(J, I , L > -FXCO 1  *TEMP2 
3290  CONTINUE 
C 

CALL  AVRX(ll) 

C 

DO  3300  I-l.IM 

00  3300  J-2, JM 

IF  (MRCH.LE.2I  UT I J, I ,M *0T( J, I ,L 1-FXCO-OVOI J > 

*  •  (pu(j,  i  mpimj-1,  m 

I E (MRCH. EO. 3 1  UT( j, I ,L I -UT ( J , I , L 1 -F XCOl-OVIK  J ) »PU( J , I > 

IF (MRCH. EO. 41  OT ( J , IfL)>OT(JtItL )-FXC01*DVU( J ) *PI)  ( J- 1 , I ) 
3300  CONTINUE 
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00005990 
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C 

C 

C 

C 

3310 

C 


ENERGY  CONVERSION  TERM  IN  THFRMOOYNAMI C 
S1GMA*P*ALPHA  is  NOW  STORED  AT  PHI 


FOUATI  J. 


EXCO-O. 125*OT*KAPA/RGAS 
EXCOl«O.25*0T*KAPA/RGAS 


3320 

C 

C 


on  3320  I ■ 1 ,  1M 
IP1-M00I I( I M ) ♦ 1 
00  3320  J-2.JNM1 
1EIMACH.LE.2I  TEMP«EXC0*(0( J+1,1 
IE (MRCH.E0.3)  TE MP-EXC 01*01 J* 1,1 
1  E  (MRCH.EO.*  )  TEMP»EXC01*0( J,  I  ,1 
POI J , | | “TEMP 


t  L  )*0YO(  J* 1 1 +0( J, I ,L I *0YO 
,L  l*OYO( J*l) 

(•OYUI J) 


J)  I 


CALL  AVRX (111 


3325 


3330 

33*0 

C 

C 


00  3330  1-1,  |M 
1 Pl-HOO ( I , (Ml* 1 
|M1 -MOOI I ♦ 1MM2, 1 M ) ♦ 1 
00  3325  J-2,JMM1 

j;  f  i  rr“ !  :  t?;  ;  ::v !  • j- 1  ”  * 1  ,M  j  •  *  “i  * -'■  * j  •  * ,  • 

TTI J,1,L l-TTl J, t,LI«PIM  J,ll 

on  3330  J-2 , JH 

Jew,-™CO*ilXlH  J  1  *1  VU,  I  ,L  )  *VI  J,  IM|  ,L  M 
1EIMRCH.EQ.3I  TEMP«EXC01*0X0(J)*V( J,1,L I 
1E(MRCH.E0.4|  TFMP-EXCO1*0XUCJ»*V(J,|M1,l I 
TEMP-TFMP*(PHMj.n*PMn  j-i,m*(pcj,n.p(j.ltiM 
TT  ( J,  I,L  I -TT  (  J,  |  ,L  (♦TEMP  ”” 

TTI J-l ,  l,L I -T1 I J-l, 1,L I ♦TEMP 
CONTINUE 


THIS  IS  THE  END  OE  FORWARD  OR  CENTERED  TYPE  OF  TIME  EXTRAPOLATION 


00006060 
00006070 
000060R0 
00006090 
00006100 
00006110 
00006120 
000061 30 
000061*0 
00006150 
00006160 
00006170 
00006 1R0 
00006190 
00006200 
00006210 
00006220 
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00006250 
00006260 
00006270 
00006280 
00006290 
00006300 
00006310 
00006320 
00006330 
000063*0 
00006350 
00006360 
00006370 
000063«0 
00006390 
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C 

C 

C 


ADJUSTMENT  AT  THE  poles 


GO  TO  3415 


3405 


3410 

3415 

3430 

C 

C 

C 


00  3415  L-1,B 

IFIL.GT.1.AN0.L.LT.6) 

PB1-0. 

PB2-0, 

00  3405  1-1,  IM 
PH1-PB1*0TU,I,L) 
PR2«PB2*0TI JM,|,u 
PS1-PB1/EIM 
PH2-P82/E I M 
00  3410  I ■ 1 , | M 

otu.i.d-pbi 

OT  ( JM, I  ,L  ) -PB2 

CONTINUE 

03T ( JM, | ) -PB2 


RETURN  TO  UNWEIGHTED  VARIABLES 


00  3460  I ■ 1 ,  IM 
00  3460  J- 1 , JM 
FD( J, II-PTI J, I )*DKVP(j) 
03T!J,I).Q3T!J,!)/F0!J,|) 

00  3470  L-l ,2 
00  34  70  I  ■ 1 ,  |  M 
IPl-MOCI I , I M ) ♦ 1 
00  3465  J-l , JM 

TT(J,I,L)-TT|J,|,u/FOIJ,n 

DO  3470  J-2,JM 

E0U»0,25*(El)(  J,  I  I+FOI J,  |P|  UF()(  J-l.  I  i*cni  i 

37  »It1«,J,U"VTU’'*L,'FDM 

K  r  I  URN 


3460 


3465 


•I.IPI) ) 


» IRI ) ) ♦EDI JM,  I 


ENO 


00006400 
00006410 
00006420 
00006430 
00006440 
00006450 
00006460 
00006470 
00006480 
00006490 
L  006500 
00006510 
00006520 
00006530 
00006540 
00006550 
00006560 
00006570 
000065R0 
00006590 
00006600 
00006610 
00006620 
00006630 
00006640 
00006650 
00006660 
00006670 
000066R0 
00006690 
00006700 
00006710 
00006720 
00006730 
00006740 
00006750 
00006760 
00006770 
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i  u  h  «  n  n  T  |  n  f 
,*  *  imuu 

//  00  OISP»OlO,OSN.HFS727.AHN.CnHMfiN 
//  00  • 

C  THIS  SUBROUTINE  USES  UTM.I.ll  *S  *  MONK |NG  SPACE 

JHH 1 ■ JH- 1 
|MH?.|H-2 
JF-JH/2M 
OFFF-OYPIJF  » 

Of)  150 

ORATaDEFF/OXPI J| 

IF  (ORAT  .LT.  l.|  GO  Til  150 
AlP«0, 125*1  OR AT-l.t 

NM-OAAT 

FNM.NH 

ALPHA >ALP/FNM 
00  150  N>1,NM 
on  120  I  ■  1 • I M 
I P1*NOO( I • I M  > ♦ 1 
I H 1 ■MOO I 1*| MM2.  I M 1 ♦ l 

130  OT(Jtl.K)a|lTll.|.l) 

150  CONTINUE 


I ETURN 
ENI) 


00006760 
00006790 
00006600 
00006R10 
00006620 
00006630 
00006640 
00006650 
00006660 
000066  70 
00006660 
00006690 
00006900 
00006910 
0000692(1 
000069  V) 
30006940 
00006950 
00006960 
00006970 
00006960 
00006990 
00007000 
00007010 
00007020 
00007030 
00007040 
00007050 
00007060 


o  o  o 
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S  U  B  8  0  I)  T  I  N  E 

/0  *  C0MP3 

//  00  0!SP»0L0,0SN«MES727. ABN. COMMON 
//  00  • 

E0U1 VALENCE  IKKK.XXXI 

LOGICAL  NOOUT ,  ICE,  LANO,  OCEAN,  SNOW,  KEY 


TRANS  I  X )■! ,/( l.+1.75*X**.416l 
TRSWIX|-1.-,271*X**.303 

JMM1-JM-1 

IMM2-IM-2 

JMM2-JM-2 

IH-IM/2+1 

fim-im 

SIGl-SIGIl) 

SIG3-SIGI2) 

DS  1G-S I G3-S IG 1 

GWM-30, 

DTC3-FL0AT(NC3)*0T 

RCNV-DTC3/TCNV 

CLH-580./.24 

P10K-1000.«*KAPA 

CT I ■,003 

CT|D-8«64E4*CTI 

HICE-300. 

TICE-273.1 

PM.PSL-PTROP 

COE-GRAV*100./f 0.5*PM* 1000. *0,24) 
C0El-C0E*DTC3/I24.*3600. I 
SCALEU-C0E*100. 

TSP0-0AV/0TC3 

SCALEP-TSPO*. 5* ( IO./GRAV ) *  100. 

CONRAD- I 80. /PI 
C NR  X -CONRAD* ,01 
FSOEDY-SOEDY 

SNOWN- I60.-15.*C0S( .9863* ( FSDEOV-24, 668 ) /CONRAO) I /CONRAD 
SN0WS—60,  /CONRAD 


SURFACE  WIND  MAGNITUDE 


10 


DO  10  1-1, |M 
DO  10  J-2.JM 

US-2.*ISIG3*UI  J,I,2I-SIG1*UI  J,!,m*0,7 
VS-2.*ISIG3*VIJ,|,2)-SIGl*VIJ,|,m*0.7 
fdij, ii-us*us  ♦  vs*vs 

WMAGI-SORT ( . 5* ( FD( 21 ) *F0( 2 , IH ) I > 
WMAGJM-SORT I ,S*(F0I JM, 1 )-F0( JM, |H II ) 


00007070 

00007080 

00007090 

00007100 

00007110 

00007120 

00007130 

00007140 

00007150 

00007160 

00007170 

00007180 

00007190 

00007200 

00007210 

00007220 

00007230 

00007240 

00007250 

00007260 

00007270 

00007280 

00007290 

00007300 

00007310 

00007320 

00007330 

00007340 

00007350 

00007360 

00007370 

00007380 

00007390 

00007400 

00007410 

00007420 

00007430 

00007440 

00007450 

00007460 

00007470 

00007480 

00007490 

00007500 

00007510 

00007520 

00007530 

00007540 

00007550 

00007560 

00007570 


ooo  ooo  ooo 
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RAOIATION  CONSTANTS 

S0-2880./RS0IST 
ALC1-.7 
ALC2-.6 
ALCB-.6 
STB0-1.171E-7 
EFVC1-65.3 
EFVC2-65.3 
EFVC3-7.6 
CPART«.5*1.3071E7 
ROT  ■  T0F0AY/R0TPER*2.0*PI 

HEATING  LOOP 

00  370  I  ■  1  »  I M 
I M  1 «M00 ( I ♦ I  MM2  *  I M ) ♦ 1 
IP1-M00I  I  *  I M ) ♦  1 
F I  Ml ■ 1-1 

HAC0S«C0S0*C0S(R0T*FIM1*0L0N) 

00  360  J«1,JM 

C0.,Z«SINL(  J)*SIN0*C0SL(  J)*HAC0S 

SURFACE  C0N0ITI0N 

TG00-T0P0GI J,1 ) 

OCEAN-TGOO.GT. 1. 

ICE-TG00.LF.-9.9FS 
LAND-. NOT . ( ICE. OR. OCEAN! 

SNOW-LANO.ANO, (LAT( J) .GE.SNOWN.OR.LATI J) .LE. SNOWS) 
LANO-LANO.ANO.. NOT. SNOW 
IF  (.NOT. OCEAN)  ZCZ-VPH I  6 ( J , I ) /GRA V 
C  ORAG  COEFFICIENT 

IF  (J  .EO.  1)  NMAG-WMAG1 
IF  (J  .EO.  JM)  WMAG-WMAGJM 

IF  ( J.NE.l.ANO.J.NE.JM)  WMAG-SORT ( . 25* ( FOt J, I ) ♦FOI J* 1 , I ) 
*  «FD(J'IM1)*F0(JM*IM1))) 

CO  ■  .002 

IF  (.NOT. OCEAN)  C0-CD*0.006*ZZZ/5000. 

IF  (OCEAN)  CO  ■  AM  INI ( ( 1.04 ,07-WMAG I  * ,001  * .0025 ) 

CS  »  C0*100. 

CS4  ■  .24*CS*24,*3600. 

FK 1  -  C0*( 10.*GRAV)/(0SIG*PM) 


00007580 

00007590 

00007600 

00007610 

00007620 

00007630 

000076*0 

00007650 

00007660 

00007670 

00007680 

00007690 

00007700 

00007710 

00007720 

00007730 

00007760 

00007750 

00007760 

00007770 

00007780 

00007790 

00007800 

00007810 

00007820 

00007830 

00007840 

00007850 

00007860 

00007870 

00007880 

00007890 

00007900 

00007910 

00007920 

00007930 

00007940 

00007950 

00007960 

00007970 

00007980 

00007990 

00008000 

00008010 
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C 

C  PRESSURES 
C 

SP-PI Jtl) 

COLMR-PM/SP 

P4-SP+PTR0P 

P4K>P4**KAPA 

PL1"SIG1*SP*PTR0P 

PL2«.5*SP*PTROP 

PL3"SIG3*SP*PTROP 

PLlK«PLl**KAPA 

PL3K«PL3**KAPA 

PL2K»PL2**KAPA 

PTRK«PTROP**KAPA 

OPLK-PL3K-PL1K 

C 

C  TEMPERATURES  AND  TEST  FOR  DRY-ADIABATIC  INSTABILITY 
C 

Tl»T(J,I,l) 

T3"T ( J • I  *  2 ) 

THL1-T1/PL1K 

THL3-T3/PL3K 

IF  ( THL 1  .GT.  THL3I  GO  TO  310 
XX1«(T1+T3)/(PL1K+PL3K) 

T 1  "XX 1 *PL IK 
T3«XX1*PL3K 
T(J*Itl)>Tl 
T  I J » I  *  2  )  ■  T  3 
THL1-T1/PL1K 
THL3-T3/PL3K 
C 

C  MOISTURE  VARIAHLl > 

C 

310  ES1«10. 0**(B. 4051-2353. O/Tl ) 

ES3- 10. 0** (0. 4051-2353. 0/T3 ) 

P1CB-.1*PL1 
P3CB«.1*PL3 
P4CB" , 1*P4 

QS1*.622*ES1/ (P1CB-ES1 ) 

0S3«,622*ES3/( P3CB-ES3 1 
GAM1»CLH*0S1*541B./T1**2 
GAM3"CLH*0S3*5418./T3**2 
03R «03 (J.I  ) 

RH3-03R/0S3 

C 

C  TEMPERATURE  EXTRAPOLATION  ANO  INTERPOLATION  FOR  RADIATION 
C 

ATEM-ITHL3-THL1I/0PLK 
BTEM«ITHL1*PL3K-THL3*PL1KI/0FLK 
TTROP-I ATEM*PTRK+BTEM)*PTRK 
T2- ( ATEM*PL2K+BTEM)*PL2K 


00008020 

00C0B030 

00008040 

00008050 

00008060 

00008070 

00008080 

00008090 

00008100 

00008110 

00098120 

00008130 

00008140 

00008150 

00008160 

00008170 

00008180 

00008190 

00008200 

00008210 

00008220 

00008230 

000(8240 

00008250 

00008260 

00008270 

00008280 

00008290 

00008300 

00008310 

00008320 

00008330 

00008340 

00008350 

00008360 

00008370 

00008380 

00008390 

00008400 

00008410 

00008420 

00008430 

00008440 

00008450 

00008460 

00008470 

00008480 

00008490 

00008500 

00908510 

00008520 
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C 

C  GROUND  TEMPERATURE  AND  WETNESS 

T  G-TGOO 

WET-1.0 

IP  ( .NOT .OCEAN )  TG-GTIJ.]) 

IF  (LAND)  WF T*GW <  J « I ) 

C  LARGE  SCALE  PRECIPITATION 
C 


PREC-O. 

IF  (03R.LE.0S3)  GO  TO  1060 
PREC- (03R-OS3 ) / ( 1.+GAM3) 

T3-T3*CLH*PREC 

THL3-T3/PL3K 

03R-03R-PREC 

C 

C  CONVECTION 
C 

1060  TETA1 *THL 1*P10K 
TETA3«THL3*P10K 
SS3  *  TETA3*P6K/P 10K 

SS2  ■  SS3  ♦  0.5*  (  TETAi-TETA3  )  *PL2K/P10K 
SSI  -  SS2  ♦  0.5*(TETA1-TETA3)*PL?K/P10K 

HH3  ■  SS3  ♦  CLH*03R 
HH3S  ■  SS3  ♦  CLH*0S3 
HH1S  «  SSI  ♦  CLH*OS 1 
C 

C  MIOOLE  LFVEL  CONVECTION 

c 


C 

c 

c 


Cl  «  0. 

C3  *  0. 

EX  -  HH3  -  HH1S 
IF  (EX.LE.O.)  GO  TO  1065 
Cl  «  RCNV*EX/(2.*GAM1 ) 

C3  *  Cl*( l.+GAMl)*(SS2-SS3)/(EX+( 1 .+GAM1 ) * ( SS1-SS2 ) ) 
PREPARATION  FOR  AIR-EARTH  INTERACTION 


1066  ZL3  «  2000, 

H I NDF-2 .O+WMAG 
OR  AW-CO*W I NDF 
EOV«E0/ZL3*WMAG/10. 


00008530 

00008560 

00008550 

00008560 

00008570 

00008580 

00008590 

00008600 

00008610 

00008620 

00008630 

00008660 

00008650 

00008660 

00008670 

00008680 

00008690 

00008700 

00008710 

00008720 

00008730 

00008760 

00008750 

00008760 

00008770 

00008780 

00008790 

00008800 

00008810 

00008820 

00008830 

00008860 

00008850 

00008860 

00008870 

00008880 

00008890 

00008900 

00008910 

00008920 

00008930 

00008960 

00008950 


o  o  o  o 
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determinat jon  of  surface  temperature 


c 

c 

c 


1070  RH4«2.*WET*RH3/(WET*RH3) 

EG«10.**( 8.405 1-2353. /TGt 
EG-  AM  INI ( EG,P4CB/ 1 .662  I 
QG-.622*EG/ ( P4CB-EG ) 

DOG-541 8. *0G/TG**2 
HHG-TG*ClH*QG*WFT 
EDR -EOV/ ( EDV+DR AW  I 
HH4-EDR*HH3* ( 1 ,-EDR I *HHG 
GAMG-CLH*OOG 

T4-(HH4-RH4*(CtH*QG-GAMG*TGI I / ( 1 . ♦RH4*GAMG> 
IF  ( T4*P10K/P4K.GT • TETA3 )  T4  =  TE TA 3* P4K /P 1  OK 
04-RH4*! QG+DOG*( T4-TG I ( 

HH4«T4*ClH*04 


PENETRATING  ANO  LOW-LEVEL  CONVECTION 


C 


PC  1-0. 

PC3-0. 

EX-0. 

IF  ( HH4  .IE.  HH3SI  GO  TO  1077 
IF  ( HH3  .GT.  HH IS)  GO  TO  1077 
EX  -  HH4-HH3S 
HH4P  >  HH4 


HH4  -  HH3S 

IF  (HH4P  .LT.  HH1SI  GO  TO  1076 
ETA  -  1, 

TEMPi  .  ETA* ( ( HH3S-HH 1 S ) / ( 1 . +GAM1 )*SS1-SS2) 
TEMP2  ■  ETA* ( SS2-S53 I  ♦  (SS3-T4) 

TEMP  ■  E0R*TEMP1*H,*gAM3|*TEMP2 
IF  (TEMP  .LT.  ,001)  TEMP-. 001 
CONVP  ■  RCNV*EX /TEMP 
PCI  ■  CONVP*TEMP 1 
PC3  ■  CONVP  *  TEMP2 


1076  T4-T4-EX/I l.*RH4*GAMGl 
04- ( HH4-T4 ) /CLH 

C 

1077  R04-P4CB/I RGAS*T4 ) 
CSEN-CS4*R04*WIN0F 
CE VA-CS*R04*W I NOF 


00008960 

00008970 

00008980 

00&M990 

00009000 

00009010 

00009020 

00009030 

00009040 

00009050 

00009060 

00009070 

00009080 

00009090 

00009100 

00009110 

00009120 

C0009130 

00009140 

00009150 

00009160 

00009170 

00009180 

00009190 

00009200 

00009210 

00009220 

00009230 

00009240 

00009250 

00009260 

00009270 

00009280 

00009290 

00009300 

00009310 

00009320 

00009330 

00009340 

00009350 

00009360 

00009370 

00009380 

00009390 


or>r>oor>r>r>r>r>r>r>r>r>r>or> 
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C 

C 

C 


C 

C 


CLOUDINESS 


ICLOOD-1 
CL  *0. 

CL1-0. 

CL2-0. 

CL3«0. 

CLT»0. 

CL *AH! N1I-1. 3*2. 6*RH3, 1. ) 

F  (C1.GT.0..0R.PC1.GT.0.)  CL1«CL 
F  (PREC.GT.O.. ANO.CL 1 . FO.O, )  CL2-1, 
F  (EX.GT.0..AN0.PC1.EQ.0.I  CL3-CL 


***** 


* 

* 

* 

* 

* 

* 

* 

* 


* 

* 

* 


* 


***** 


***** 


CL1  CL2  CL3 


CL* AH AX  1 I  CL  1. CL?. CL  31 

IF  I  CL  .GE,  1.1  lCLOIID-3 

IF  ICL  .LT.  1.  .AND.  CL  .GT.  0.1  lCLnUD-2 


I  CLOUD* 1  CLEAR.  (CLOUD*?  PARTLY  CLOUDY.  ICL0UD*3  OVERCAST 


00009400 

00009410 

00009420 

00009430 

00009440 

00009450 

00009460 

00009470 

00009480 

00009490 

00009500 

00009510 

00009520 

00009530 

0J009540 

00009550 

00009560 

00009570 

000095R0 

00009590 

00009600 

0000961 J 

00009620 

00009630 

00009640 

00009650 

00009660 

00009670 

000096R0 

00009690 

00009700 

00009710 

00009720 

00009730 

00009740 
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C  LONG  WAVE  RADIATION 
C 

1080  Q3RB«AMAXUQj>R,l#E-5> 

VAK*2.*ALOGU.7188E-6/Q3R8>/ALOG<120./PL31 
TFM1*«00102*PL3**2*Q3RB/VAK 
TEM2*TEM1*(PV/PL3 I **VAK 
EFV3-TEM2-TEM1 

EFV2«TEM2-TEM1*|PL2/PL3I**VAK 
EFV1*TEM2-TEM1*|PL1/PL3I**VAK 
EFVT*TEN2-TEM1*(PTR0P/PL3|**VAK 
EFV0*TeM2-TEHl*| 120. /PL 3  I **VAK*2. 526E-5 
BLT*STBO*TTROP**V 
BLl«STBO*Tl**V 
BL2«STBO*T2**V 
BL3«STB0*T3**V 
BLV*STBO*TG**V 
C  LONG  WAVE  RADIATION 
R0C*0. 

R2C«0. 

RAC-O. 

UR T*BLT* TRANS (EFVO-EFVT I 
UR2«BL2*TRANS(EFV0-EFV2I 
GO  TO  11090,1090,20001,  I  CLOUD 
1090  ROO *0.82*1  UR T+(BLV-HLT)*(1.+TRA NS (EFVT ( ( /2. I 
R20*0. 736*1  UR 2+(BLV-BL2l*(l.  +  TRANS(EFV2l 1/2.1 
RV0»BLV*(0«6*SQRT ( TRANS (EF VO) 1-0.1  I 
IF  I (CLOUD  .EQ.  1)  GO  TO  2015 
2000  IF  ICL2  .LE.  0.1  GO  TO  200V 
CLT*CL2 

ROC *0.82* (URT*( BL2-HLT 1*11. +TRANSIEFVT-EFV2 11/2.) *CLT 

R2C-0.736*UR2*CLT 

R2C-.5*R2C 

GO  TO  2006 

200V  IF  ICL3  .IF,  0.1  GO  TO  2006 
CLT-CL3 

R0C*0.82*(URT+( BL3-HLT I  *  1 1 .♦ TRANS (EF VT-EF V3 n/2.  I*CLT 
R2C *0.736*1  UR 2+(8L3-BL2)*(l.  +  TRANStFFV2-FFv3 I  I /2. |*ClT 
2006  IF  ICL1  .LF,  0.1  GO  TO  2010 
CLH-AHAX1 ICLT-CL1.0.  I 

C  IN  PRESENT  VERSION,  CLM  AND  THIS  TEN  ARE  ALWAYS  7FR0 
TEH»0. 

IF  (CIT  ,GT .  0,0011  TEM-CLM/CLT 

ROC *0.02* I URT ♦ I BL 1 -BLT 1  *  I l.*TRANS( FFVT-EFV1I I /2. »*CL 1*R0C*TEH 
R2C»R2C*TEM 

2010  R VC *0.85*1 .25+.75*TRANS(EFV3) l*(BLV-BL3)*CL 
2015  RO»ROC*l 1 . -CL  I *R00 
R2*R2C* 1 1 ,-CL I *R20 
RV»RVC*I l.-CL l*RVO 
D|RA0*V.*STB0*TG**3 


00009750 
00009760 
00009770 
O0OG978O 
00009790 
00009800 
00009810 
00009820 
00009830 
0GG09BV0 
00009850 
00009R60 
00009870 
00009880 
00009890 
00009900 
00009910 
00009920 
00009930 
000099V0 
00009950 
00009960 
00009970 
00009980 
00009990 
000 10000 
00010010 
00010020 
00010030 
OOOIOOVO 
00010050 
00010060 
00010070 
00010080 
00010090 
00010100 
00010110 
00010120 
00010130 

oooioivo 

00010150 

00010160 

00010170 

00010180 

00010190 

00010200 

00010210 

00010220 

00010230 


o  o  o  non 
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SORFACF  ALRFOO 

IF  ICOSZ  .LF.  .01)  GO  TO  340 

SC0SZ«S0*C0SZ 

ALS-.07 

IF  (OCFAN)  GO  TO  335 
ALS-.14 

IF  IIAT(J)  .LT.  SNOWN)  GO  TO  327 
CLAT-ILATI J) -SNOWN )*CONR AO 
GO  TO  330 

327  IF  ILAT(J)  .GT.  SNOWS)  GO  TO  328 
CL AT* (SNOWS-L AT ( J ) )*CONRAO 

ALS“.45*(l«+(CLAT-10,)**2)/( ( CL AT-30. ) **2+ I  CL AT-10. ) **2 ) 
GO  TO  335 

328  IF  (LAND)  GO  TO  335 
CLAT-0,0 

330  ALS».4*(l,*HCLAT-5.)**2))/HCLAT-45.)**2-H(CLAT-5.)**2)) 

SOLAR  RADI  AT  ION 

335  ALA0«AMINl(l.t.O85-.247*ALOG10(COSZ/COLMR) ) 

SA*.349*SC0SZ 

SS-SCOSZ-SA 

ASOT«SA*TRSW( ( FFVO-FF VT ) /COSZ  ) 

AS2T«SA*TRSW( (EFV0-FFV2 ) /COSZ ) 

FS2C-0. 

FS4C-0. 

S4C-0. 

GO  TO  (  336,338*337) «  ICi.OOD 


00010240 

00010250 

00010260 

00010270 

00010280 

00010290 

00010300 

00010310 

00010320 

00010330 

00010340 

00010350 

00010360 

00010370 

00010380 

00010390 

00010400 

00010410 

00010420 

00010430 

00010440 

00010450 

00010460 

00010470 

000104R0 

00010490 

00010500 

00010510 

00010520 

00010530 
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C  CLEAR 


336  ES20»AS2T 
FS40*SA*TRSW ( EEVO/COSZ ) 

?i°!<.i*“ALS,*,FS404<  ^»“^LAO)/(  l.-ALAO*ALS'*SS) 

IE  ( I  CLOUD  ,EO.  1)  GO  TO  341 
C  LARGE  SCALE  CLOUD 

337  IE  (CL2  ,LE.  0.)  GO  TO  33R 
CLT-CL2 

ES2C«AS2T*CL  T 

ALAC«ALC2*ALA0-ALC2*ALA0 

60CT(Sl335LS,*,TEMS/,U’ALC2*ALS,4‘1*'ALAC,/‘l*-A‘-AC*ALSl.SS>*CLT 
c  LOW  level  cloud 

338  IE  ( CL3  ,LE,  0.)  GO  TO  339 
CLT.CL3 

FS2C«AS2T*CLT 

TEMU«(EEV0-EEV3I/C0SZ 

TEMS«SA*| 1 »-ALC3 )*TRSW( TEMURI ,66*1 EE VC 3+EEV3 ) ) 

ES4C-(TEMS^ALC3*SA*TRSWITEHU);*CLT 

ALAC«ALC34ALA0-ALC3*ALA0 

339  IE  ( CL1  .LE.  0.)  GO  TO  341 

clm.amaxhclt-cli.o.i 

,Nte!“!NT  VE‘,s,0N’  Clh  a"°  ™is  A«E  always  zero 

IF  ( CLT  .GT.  0.)  TEM-CLM/CLT 
TEMU-IEEV0-EEV1 l/COSZ 
TEMB-ALC1*TRSW(TEMU»*SA*CL1 

}  *"ALCI  )*TRSW(  TEMU4l.66*EEVCl)*CLl*TEMB*ES2C*TEH 

nrrS"«!JU’ALC1,MRSW,T,:MU^'AA*‘EEVCl^EV3lr 

FS4C«TEHS*CL 1 ♦TEHB  +  F  S4C*TEH 

ALAC-ALCUALAO-ALC1*ALAO 

S4C-(1.-ALS)*ITEMS/I1.-ALC1*ALSI 

341  ES2»ES2C*(1.-CU*ES20 

FS4»ES4C>( 1.-CLI4FS40 
S4«S4C>( 1»-CL )*S40 
AS1«AS0T-ES2 
AS3-ES2-ES4 
GO  TO  343 
340  S4-0.0 


AS3-0.0 

AS1-0.0 


00010540 
00010550 
00010560 
00010570 
00010580 
00010590 
00010600 
00010610 
00010620 
00010630 
00010640 
00010650 
00010660 
00010670 
0001G6R0 
00010690 
00010700 
00010710 
00010720 
00010730 
00010740 
00010750 
00010760 
00010770 
00010780 
00010790 
00010800 
00010810 
00010820 
00010830 
00010840 
00010850 
00010860 
00010870 
00010880 
00010890 
00010900 
00010910 
00010920 
MOO 109 30 
00010940 
00010950 
00010960 
00010970 
000109R0 
00010990 
00011000 


on  o  o  o  o 
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C  COMPUTATION  OF  GROUNO  TEMPERATURE 

c 

345  TGR-TG 

IF  I  OCEAN )  GO  TO  347 

BRA0-S4-R4 

TEM-O. 

IF  I  ICE • ANO.ZZ  2 .LT .0.1)  TEM-CTI0/H1CE 
A1*CSEN*(T4*CLH*(044WET*( 00G*TG-QG ) )  ) 
A2-BRAD*4.*BL4*TEM*TICE 
B1-CSEN*( 1 •♦CLH-OOG-WET ) 

B2-D1RAD*TEM 

TGR ■ (A1 ♦A2 )/(Bl-B2) 

IF  (LAND. OR. TGR. LT. TICE )  GO  TO  346 
TGR-TICE 

346  DR4-D1RAD*(TGR-TG) 

R4-R4-DR4 

R2-R2*.B*(  l.-CL)*TRANS(EFV2)*0R4 
R0-R0+.8*(l .-CL ) *TRANS I EF VT ) *DR  4 

347  GT(J,|)-TGR 

SENSIBLE  HEAT  (LY/OAY)  ANO  EVAPORATION  (GM/CM**2/SEC> 

E4«CEVA*( MET*  ( OG-DOG* ( TGR -TG ) ) -04 ) 

F4-C5EN* ( TGR-T4 ) 

FK-R04*  FK 1 *M I NOF 

TOTAL  HEATING  AND  MOISTURE  BUDGET 

^!<.C!!C!tPCl4PC3,/CLH4PRFC"2**e4*01C3*GRAV/(SP*10.) 

03(J«|)>03(JtI) —ON 

IF  (.NOT. LAND)  GO  TO  350 
RUNOFF-O. 

IF  (ON.GT.O.  .AND.  WET.LT.l.)  RUNOFF-. 5*MET 
IF  (ON.GT.O.  .AND.  MET.GE.l.)  RUNOFF-1. 

MET  ■  GUI J. I )♦( 1. -RUNOFF )*0N*5.*SP/GR AV/GWM 
IF  (WET.GT.l.)  MET  ■  1. 

IF  (MCT.LT.O.)  MET  -  0. 

350  GM(J,|)  .  MET 

IF  (03( J. I ).LT.O. )  03 ( J . I ) -0. 

IF  (KEVOl))  GO  TO  360 

351  H1-(AS1*R2-RO)*COE1*COLMR+C1+PC1 
H3-CAS3*R4~R2*F4)*C0E|*C0LMR-C3+PC3+PREC*CLH 

H( J,  1,1 ) -0. 5* ( HI 4H3 ) 

T  FMP-0.5*(H1-H3 ) 

T(J,I.1)-T(J.|,i (♦TEMP 
T(J.l,2)«T(J, I, 2)-TEMP 


00011010 
00011020 
00011030 
00011040 
00011050 
00011060 
00011070 
OOOUORO 
00011090 
00011100 
00011110 
00011120 
00011130 
00011140 
00011150 
00011160 
oooin  ;o 
00011180 
00011190 
00011200 
00011210 
00011220 
00011230 
00011240 
00011250 
00011260 
00011270 
0001 1280 
00011290 
00011300 
00011310 
00011320 
00011330 
00011340 
00011350 
00011360 
00011370 
00011380 
00011390 
0001 1400 
00011410 
00011420 
00011430 
0001 1440 
00011450 
00011460 
00011470 
0001 1480 
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C  SURFACE  FRICTION 

v 

352  fniilo  *F0*  n  G0  T0  35fl 

K1«2*K 
K2«K  1  +  1 

TENP«0(  J»I»K1  )-OU*l,K2) 

355  0  ’^!’®,M‘K1,-,:M*TE«P*CnLMR**2*DTC5 

5  0CJ*l«K2)»0(J»|,K2)*(FM*TEHP*rrHMo-ck*/ft7 


1 P 1 »  ) 


C 

358 
C358 
C 

C  PACK 
C 


*C0LMR*0TC3 


K2JMFM*TEMP*COLMR-FK*J0rj,l,K2)- 


• 5*TEMP ) * ,? ) 


CONTINUE 
IF  (NOOUT) 


GO  TO  360 


FOR  OUTPUT 


360 

370 

375 

377 


380 


390 

600 


S57irf!!Si:,T**,0—*F— 

lltFj!u2!«*!F,*,0‘l'":,l"IC1*CJ*''CI*w:,l*SI,*SCAlEI>/clHII 

;s?  sin  iisi-**'  » .—.o., . . 

CONTINUE 

CONTINUE 

00  377  |>1. IN 

00  377  J-1.JN 

FH  J  » I t 1 ) »H| Jf I 1 1 ) *pxYP ( J ) 

on  390 

IP1-N00I|,|M»4I 
IM 1 -H00( l«|MM2,IM)4l 
on  380  J»2 * JMM1 

c  ♦hijIi  ill  i .  ipi,i> 

T»J#ltl»«T|J#I#i)*TfipM,J’l*,,l,4'M,J",»,PI»H»/I  16.-DXYPI  J  )  ) 

TJJ«I*2)»T(J,|,2)4Tehp 
t  I1  •}!";* M •»>♦««  1*1« n/DXYPu ) 

t  !  jI.’  1 1 J 1 1?  mS*  !  *  1 !  *M ' J"  • 1  • n  ,,,K  vp  *  > 

END 


00011490 
00011500 
00011510 
00011520 
00011530 
00011540 
00011550 
00011560 
00011570 
00011580 
00011590 
00011600 
00011610 
00011620 
00011630 
00011640 
00011650 
00011660 
00011670 
00011680 
00011690 
00011700 
00011710 
00011720 
00011730 
00011740 
00011750 
00011760 
00011770 
00011780 
00011790 
00011800 
00011810 
00011820 
00011830 
00011840 
00011850 
00011860 
00011870 
0001 1880 
00011890 
00011900 
00011910 
00011920 
00011930 
00011940 
0001 1950 
00011960 
00011970 
00011980 
0001 1990 
00012000 
00012010 
00012020 
00012030 
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SUB  ROUT  !  N  E 

000120AO 

*  COMPA 

00012050 

/+ 

00012060 

u 

00  Dl SP-OLO, DSN=MF S72 7. AHN. COMMON 

00012070 

u 

00  * 

00012080 

c 

00012090 

c 

00012100 

DTC3«DT*FLOAT(NC3( 

00012110 

SIG1-SIGU) 

00012120 

SlG3*SIG(2t 

00012130 

DSIG*SIG3-SIG1 

00012 1A0 

JMM 1 ■  JM- 1 

00012150 

JMM2“ JM-2 

00012160 

! MM2“  I M-2 

00012170 

F  I M*  I M 

00012180 

TSPD*DAY/DTC3 

00012190 

I F ( A.EO.O, )  GO  TO  92 

00012200 

c 

00012210 

DO  25  1  ■ 1 ,  IM 

00012220 

00  20  J«2»JM 

00012230 

20 

PV<  J, ! ) aDXYP ( J I *P ( J, l  ( 

OOO122A0 

25 

P  V  (  1  *  I  )*DXYP(1)*P(  1,1  ) 

00012250 

C 

00012260 

C 

DIFFUSION  OF  MOMENTUM 

00012270 

C 

00012280 

DO  30  1*1, I M 

00012290 

!P1*M0D< I , I M ( ♦ 1 

00012300 

DO  30  J*2,JM 

00012310 

30  pim j* i )«o,25*(pvi j,n*pvu-i»i i+pvi j,ipii*pvi j-i,ipim 

00012320 

00  90  K*2,5 

00012330 

K 1 *K-M00  t  K , 2  ) 

0001 2 3A0 

FL  *M00( K , 2  )  *2+ 1 

00012350 

S 1 GC0  =  FL/2  • 

00012360 

DO  AO  I  *  1  ,  I M 

00012370 

I P 1 *M00 ( 1  , IM )  + 1 

00012380 

DO  AO  J*2,JM 

00012390 

AO  PV( J, I)*SIGCO*(P( J,IP1)AP( J-I ,IP1>-P( J, II-PI J-1,I ) ) 

OOO12A00 

*  /(P(J,IP1)+P(J~1,IP1I+P(J,!)+P(J-1»!H 

00012A10 

*  *(0(  J,I,KII-0(  J,I,Kl*m 

00012A70 

o  o  o 
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DO  50  I «1 •  I M 
IM1*M0D(  ( + l MM2. [ M  )♦  1 
DO  50  J*2.JM 

TEMP*DTC3*(P(J»I  ) ♦P <  J-l.l  )  )*AXU(  J >*DYU( J > /DXU( J > *0. 5 
*  *(0( J* I ,K  > -0 ( J  » I  Ml ,K) ♦PVI J . I H-PVI J, I M 1 ) ) 

0< J. I .K)*Q( J, l,K)-TEMP/PU( J,|  ) 

50  0( J.IM1,K)*Q< J.IM1,K)*TEMP/PU( J, I  Ml) 

DO  60  1*1, IM 
IP1*M00(  I  .IMI-.1 
00  60  J*2.JM 


60 


PV(  J, 

I  )*SIGCO«( 

P<  J, 

(PI) 

♦PIJ.I )-P( 

1 

/( 

P(  J, 

IP1) 

+P( J.l )4P( 

*( 

0(  J, 

I  •  K  1 

)-0« J.I ,K1 

on  so 

1-1. 

IM 

IP1*M00( I. 

I M  )  ♦  1 

00  70 

J*2« 

JMM 1 

TEMP-0TC3*(P( J, 

IP1) 

♦  P  (  J 

.1 ) ) *AYU  ( J 

pu-i.tpn-pu-i.m 


70 


80 

90 


92 


*  .  IQ1J*1,I,K)4PVIJM,I  >)/0XUIJ  +  l>-10lJ,I,K>-PVI  j,l)| 

0(J+1.I.K)*Q(J+1,I *K)-TEMP/(PU(J+1, I )*OXU( J+ 1 ) ) 

Q< J. I«K)*Q( J, I.K1+TEMP/IPUI  J,I  ) *DXU( J ) ) 

TEMP-0TC3*P( JM,1 )*AYU< JM)*OXU( JM)/OYU( JM)*(Q( JM,l ,K)-PV( JM 
0(JM.I.K)*Q(JM.I.K)-TEMP/PU(JM. ( ) 

TEMP*0TC3*P ( 2.  I )  *AYU(  2 )  *OXU(  2 )  /DYU(  2 ) *(  0( 2. 1  , K ) -PVI 2 . I  )  ) 
0(2. I«K)*0(2.I.K) -TEMP/PUI 2.  I  ) 

CONTINUE 

CONTINUE 


SMOOTHING  LAPSE  RATE 


99 

100 


110 


DO  100  I-1.IM 
00  100  J-l.JM 

TD( J, I )-<T( J,I,2)-T( J, I , 1 ) )*.5/P( J. t  ) 

00  110  1*1. IM 
I M  1  *M00  (  I  ♦  I  MM2.  I  M  )  ■.  1 
I P1»M00( I . IM)+1 
00  110  J-2.JHM1 

TOBAR  ■  (T0(J+1,IM1)+2.*TD(J+1,I )♦  TD(JM.IPl) 

2  ♦2.*T0( J, IM1 )  +4 , *  TO  I J , I )  ♦2.*TD(J,IP1> 

3  ♦  T0(J-1,IM1)+2.*T0(J-1,I )♦  TD(J-l.IPl) 

TOSM ■ ( TO ( J . I )♦( TOBAR-TOI J. I ) )/TSPD)*P( J, I ) 

TBAR* (T(J,I,2)+T(J,I , 1 ) )*,5 

T( J,  I,  1  (-TBAR-TOSM 
T  (  J  »  1  »  2  )  *T  BAR  TOSM 
RETURN 
ENO 


>/16. 


00012430 
00012440 
00012450 
00012460 
00012470 
00012480 
00012490 
00012500 
00012510 
00012520 
00012530 
00012540 
00012550 
00012560 
00012570 
00012580 
00012590 
/DXUI J ) >00012600 
OC012610 
00012620 
•I))  00012630 

00012640 
00012650 
00012660 
00012670 
00012680 
00012690 
00012700 
00012710 
00012720 
00012730 
00012740 
00012750 
00012760 
00012770 
00012780 
00012790 
00012800 
00012810 
00012820 
00012830 
00012840 
00012850 
00012860 
00012870 


o  o  o  n 
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JXPUT 


u  B  «  0  0  T  >  tu _ f_ 


//  on  0  J  SP-OLO.  i.  ''N-MES727.  ABN. COMMON 


equivalence  ixxx.kkki 

,C1<800»»  »C(flOOI,  ALPHI 8 ) 

L0™ln LE;^,0T*l,l,l0uc,,n‘,cl‘,»»»  iciii.icmi 

INTEGER  KSET I  32 ) .  BLANK/*  •/ 

EQUIVALENCE  (XLEV.ILEV) 

INPUT  PROGRAM 

IP  IKEYim  .OR.  KEY  112))  GO  TO  7^NG'P0NG  *f START/OUTPUT 
PI-3.1415926 
SIGI 1I-.25 
S IGI2 1 -. 75 
DAYPYR-365. 

OECMAX-23.5/ 1 80.0*p 1 
R0TPER-24.0 
E0NX-173.0 
A PH EL -183,0 
ECCN-0.G178 
C  HISTORY  FILE 
KTP-11 

C  CHECKPOINT  FILE 
LTP-1 

C  OATA  CARO  IMAGE  FILE 
INU-5 

C  OUTPUT  (MAP)  STREAM 
MTP-6 

C  (1  ) 

READ  (1NU.50)  10.XLABL 

C  1 2  ) 

C 

C  TRST-1.  I  restart  using  new  tape 
C  TERM-0,  t  00  NOT  TERMINATE  OLO  TAPE  IF  TRST-I 
RFAO  IINU.80)  TAU10.TAU1H.TRST.TFRM 
IE  (TRST.NE.O.O)  KTP-10 
TAU1-TAUI0-74.+TAUIH 


C  (3) 


C  (4) 
C  (5) 
C  (6) 
C  (7) 


uun'  ta,im’  ut,c 

REAO  (  INI) . 82  )  OTM,  NCYCLF  .  NC3 
READ  (  I  Nil .  10 )  JM,  IM,  OLAT 
REAO  IINU.80)  AX 


RFAD  IINU.80)  FMX,  EO,  TCNV 


00012880 
00012890 
00012900 
00012910 
00012920 
00012930 
00012940 
0O0E295O 
C001 2960 
00012970 
00012980 
00012990 
00013000 
00013010 
OPTION  00013020 
00013030 
00013040 
00013050 
00013060 
00013070 
00013080 
0001 3090 
00013100 
00013110 
00013120 
00013130 
00013140 
00013150 
00013160 
00013170 
00013180 
00013190 
00013200 
0001 3? 1 0 
00013220 
00013230 
00013240 
00013250 
00013260 
00013270 
00013280 
00013290 
00013300 
00013310 
00013320 
00013330 
00013340 
00013350 
0001 3360 
0001 3370 
00013380 
00013390 
00013400 


C  (A) 

00013910 

READ  (INU.AO)  RAO*  GRAV*  OAV 

00013920 

C  (91 

00013930 

REAO  (INU.SOI  RGAS*  KAIA 

00013990 

C  (101 

00013950 

REAO  ( INU* 40)  PSL*  PTROP 

00013960 

C  (111 

00013970 

REAO  (1NU.B0I  PSP 

0001 3980 

C  (121  FOR  POLAR  MAPS*  LATITUDE  OF  INSCRIBED  CIRCLE 

00013990 

REAO  (1NU.80I  OL I c 

00013500 

C  (131 

00013510 

REAO  ( INU.B5I  KSET 

00013520 

00  90  J-1,32 

00013530 

♦0 

KEYS(J)««SET( JI.NE. BLANK 

3001 3590 

C 

00013550 

0Ta0TM*60.0 

00013560 

A«AX*1.0E5 

00013570 

»  IM«|M 

00013580 

DlAT«OLAT*P 1/180.0 

00013590 

0L0N«2.0*PI/EIM 

00013600 

F Map MX  *0(00001 

00013610 

C 

00013620 

C 

00013630 

R 10«RAO*1000,0 

00013690 

OATaOAV* 3600#0 

00013650 

C 

00013660 

CALL  MAGFAC 

00013670 

REAO  ( 1 NU* 1 199 1  MARK 

00013680 

123 

TRFAO/a.TRUE. 

00013690 

125 

REAO  (KTPI  T AUX*  Cl 

00013700 

IF  (TAUX  (LT.  0.0'  GO  TO  135 

00013710 

TAUaTAUX 

00013720 

TAUIO" IF  I X( TAUX/29. I 

00013730 

TAUlMaTAUX-29.*TAIII0 

00013790 

C 

IF  (KEV(9I)  WRITE  (MTP, 91201  TAU|D*  TAUIH 

00013750 

CI22I  a  Cl (22 1 

00013760 

SOEOV  a  ICK29I 

00013770 

SDEVR  a  ICK301 

00013780 

CALL  OUTAPE ( KTP* 1 1 

00013790 

IF  ( TAUX-TAIM  1  125*  190*  190 

00013800 

135 

BACKSPACE  KTP 

00013810 

190 

CONTINUE 

00013820 

IF  ( (TRST.EO. 1.1. AND. (TERM. EO. 0.1 1  GO  TO  195 

00013830 

TAUXa-ABS(TAUXI 

00013890 

WRITE  (KTPI  TAUX.Cl 

00013850 

BACKSPACE  KTP 

00013860 

195 

CONTINUE 

00013870 

IF  (TRST.EO. 0.01  GO  TO  202 

00013880 

REWIND  KTP 

00013890 

KTPall 

00013900 

WRITE  (KTPI  TAU*C 

00013910 

CALL  OUTAPE  (KTP, 21 

00013920 

202 

JUMPa, FALSE. 

00013930 
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C 

205  CALL  I N 1 T  ?  ( MARK  ) 

206  CALL  1NS0ET 

IE  (JUMP)  GO  TO  300 
260  CONTINUE 
C 

1 E  (KEVI-20II  T  AU«?6. 

T  AMI  *T  All 

WRITE  (MTP, 1200)  in.XLABL 
WRITE  (MTP, 1201)  TAIIlO.TAUlM, TRST  , T All  1 
WRITE  (MTP, 1201)  T  Allfl,  T  AtIO,  T  AIIM,  TAMF.TAMC 
WRITE  (MTP, 1201)  OTM.OLATtAX.FMX ,  FO.TCNV 

P  1  *  *60»GRAV  *OAV « RC.AS.KAPA.PSL  »PTR0P»PSF,0L1C 
WRITE  (MTP.12021  JM, |M,NCYCLE ,NC3 
WRITE  <MTP,1|*7)  RX 
WRITE  (MTP, 1|**>  FO,  TCNV 
WRITE  (MTP,1|*6)  EMX 
C 

300  TOEOAVaAMOOl TAU.ROTPFR) 

C  WRITE  (21  GW.  GT,  TS.  SN 

C  REwlNO  2 

RETURN 
C 
C 


10  E DR MAT  (216. E| 0.01 

60  FORMAT  (10AM 

67  FORMAT  (1?«AA1,?F10.0«HA6) 

M2  FORMAT  (E10. 0.216) 

80  FORMAT  (6F10.0) 

*6  FORMAT  (3?A1) 

11*6  FORMAT  (AMO  F0« , F6 . ? , / /MO  TCNV*,F6,n) 
11*6  FORMAT  (6H0  EM  a  ,  FA  .  2, 8M»(|.(IOOO  1  I 
11*7  FORMAT I6M0  A  a. FA, 2 ,*M* 1 00000.01 
11**  FORMAT  (2131 
*120  FORMAT  I  1X.2F 10.2  I 


*731  FORMAT 
*781  FORMAT 
1200  FORMAT 


1  •  1TAPE  '  .  I*.  '  OMES  N(l( 
I'OSWITCMING  FROM  TAPE  • 
I  1H|.A*,?X,*AM 


CONTAIN  TMF  STARTING  TIME'! 
.12.'  TO  TAPE  ',121 


1201  FORMAT  <*<lX,El?.6n 


120?  FORMAT  llOtlX.I*)) 


FNO 


00013*60 
00013*60 
00013*60 
00013970 
00013*80 
00013**0 
0001 6000 
00016010 
00016020 
00016030 
00016060 
00016050 
00016060 
00016070 
00016080 
000160*0 
00016100 
00016110 
00016120 
00016130 
00016160 
000161*0 
00016160 
oooia; 5o 
00016180 
000161*0 
00016200 
00016210 
00016220 
00016230 
00016260 
00016260 
00016260 
000 16? 70 
00014280 
000162*0 
00016300 
00016310 
00016320 
00016330 
00016360 
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C 

SUBROUT  I  N  E 
•  WAGMC~ 

/• 

//  DO  OISEaniO,OSNaNES727.ARN.CONNON 

//  DO  • 

c 

C  EQUAL  LATITUOE  01  STANCE  PROJECTION 

C 

JMM1 ■ JM-1 
EJNaJN 

EJEaEJN/2.0a0.5 
00  410  J-2.JNN1 
Ejaj 

410  l AT ( J ) aDL AT* ( E J-E JE I 
LAT(||. -El/2.0 
LATIJNJ. El/2.0 

C 

00  415  Jaf.JM 

415  OVU(J)>NA04|LAT( JI-LAT(J-ll) 

OVUl 1 1 "0YUI2I 
00  420  Jal.JM 

420  OXEt  J | aftAO*COS I L AT  I J I  I  *DLON 
C 

00  4)0  Ja2,JM 

4)0  OXUt J)a0.5#(0XRf J)*OXR| J-l 1 1 
OXUI l I "OXUI  2 ) 

00  440  Ja2»JMMl 

440  OVEIJ|aOa54|OVUI jallaOVUI J| | 

OVEI 1  I aOVUt  2 1 
OVEIJNI-OVUI JNI 
00  445  Ja2.JMMl 

445  DXVEt J)*0. 5*1 OXUI JI*0X(HJ*1 I |«OVE< Jl 
OXVE ( 1 ) aQXUI 2 1 *OVE 1 11*0.25 
OXVEI JM I aOXUI JNI aOVB  t  JM 1*0.25 
00  450  JaZ.jMNl 

450  EIJI*2.0*R|/0AV#<RA0/0XVRf  J||#HCOS<lATl  J-l  M  ♦COSI  LATI  J 1)1*0X01  Jl 
•-ICOSILATI JllaCOSILATI J«1 1 1 1 *OXU( J*1 11/2.0 
E I JN| a2.0*Et/0AV*( RAO/OXVEI JN| 1 4  f COS I L ATI JN-1 1  I ♦COS I  LA  T | JNI ) ) 
**OXUt JNI/2.0 
Ellla-EIJNI 
C 

C  USED  IN  C0NE4  ONLY 
CXEla4.0/),0 
00  42  Jal.Jtl 

AXUtJ)*A*|0XUtJI/).0E5)**EXEl 
AXVIJ)*A*IOXR< J I /) ,0E5 I **EXE 1 
AVUI J I aA* t  OYUt  J I / ). 0E5 I **EXR 1 
42  AVVtJ)aA*<OVR<J|/).OE5l**EXRl 
RETURN 
ENO 


00014)50 

00014)60 

00014)70 

00014)60 

00014)90 

00014400 

00014410 

00014420 

000144)0 

00014440 

00014450 

00014460 

00014470 

00014460 

00014490 

00014500 

00014510 

00014520 

000145)0 

00014540 

00014550 

00014560 

00014570 

00014560 

00014590 

00014600 

00014610 

00014620 

000146)0 

00014640 

00014650 

00014660 

00014670 

00014660 

00014690 

00014700 

00014710 

00014720 

000147)0 

00014740 

00014750 

00014760 

00014770 

00014760 

00014790 

00014600 

00014610 

00014620 

000146)0 

00014640 

00014650 
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C 

■SUBAQUTINF 

•  insoeT - - 

/• 

II  00  DlS8*OLO,OSN*NES727.A8N.Ct'"HON 
//  00  • 

logical  dclk 

c 

00  411  J*1 .  JM 
S1NL(J)*S1N(LAT ( J) ) 

All  COSLI JI-COSILATf J|) 

C 

C  IF  IKFVI11 t.OA.KEVI 12 ) |  GO  TO  15 
1  NU*5 

AEAO  UNO* 71  CLKSM«  ASETSN,  LOAV,  LVA 
31  IF  (ASETSM  .NE.  AESETI  GO  TO  14 
S0E0V*L0AV 
SOEYA-LVA 
14  OCLK*  .FALSE. 

CALL  SOfcT 

IF  (CLKSN  .NF.  OFF|  OCLK*  , TAti*- . 

A E TUAN 
C 

15  OCLK*. FALSE. 

CALL  SOET 
AETUAN 
C 

7  FOANAT  (A4.6X.44.6X.13.7X.l4) 

c 

DATA  AESET/4HAESE/.  0FF/4M0FF  / 

ENO 


00014A60 

00014A70 

00014880 

00014890 

00014900 

00014910 

oooi4«>:o 

00014930 

00014940 

00014930 

00014960 

00014970 

00014980 

00014990 

00015000 

00015010 

00015020 

000 i 5030 

00015040 

00015050 

00015060 

00015070 

00015080 

00015090 

00015100 

00015110 

00015120 

00015130 

00015140 

00015)  50 

00015160 

00015170 

00015180 
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C 


SUBROUTINE 
•  SOFT  - 6" 

/• 

//  01)  DISPaOLO«DSN*MES727  » ABN .COMMON 
//  00  • 

C 

DIMENSION  7 MONTH! 3,12),  M0NTHI12I 
LOGICAL  OCLK 
MAXOAVaOAYPVR  ♦  I.OE-2 
IF  I OCLK)  SOEOVaSOEOV+l 
IF  (SOFOY  .LE.  MAXOAVI  GO  TO  211 
SOEOVaSDEOY-MAXOAY 
SDEVRaSOEVfUl 
211  JDVACC«0 

00  291  L-1,12 
JOVACCaJOVACCaMONTHIL I 

IF  ISOEOV  ,  IF.  JOVACCI  GO  TO  241 

291  CONTINUE 

L  ■  1  2 

241  "NTHOV-MONTHIU-JOYACCaSOEOV 

AMONTHII |a2M0NTHI l.L I 
ANONTMI 2  I  a {MONTH ( 2  .L I 
AMONTHI 3  I a£MONTH( 3 «  L ) 

OYaSOEOY 

SEASONa | OY-EONX | /OAVPYR 
01  ST a  I OY-APMFL  l/UAVPVR 
C 

C  EONX  a  JUNE  22 

C  APIHELION  a  JULY  1 

C  ECCNa  ORBITAL  ECCENTRICITY 

c 

DECaDFCMXXaCOSI 2«0*P| *SEASON| 

RS01STa||.04ECCN*C0SI2.0aP|*0IST)|a*2 

SINOaSIN(OEC) 

COSOaCOSIOEC) 

C 


ORTA  {MONTH/*  JANUARY  FEBRUARY 

*  «AV  JUNE  JULY  AUGUST 

XER  NOVEMBER  DECEMBER • / 

OATA  MONTh/31, 2». 31, 30, 31, 30, 31. 31, 30, 31, 30. 

R  E  T  UR  N 

ENO 


MARCH 

SEPTEMBER 

31/ 


00019190 
00019200 
00019210 
00019220 
00019230 
00019240 
00019290 
00019240 
00019270 
000192R0 
00019290 
00019300 
00019310 
00019320 
00019330 
00019340 
00019390 
00019360 
00019370 
000193B0 
00019390 
00019400 
00019410 
00019420 
00019430 
00019440 
00019490 
00019440 
00019470 
000194B0 
00015490 
00015500 
00015510 
00015520 
00015530 
00015540 
00015550 
APRIL  00015560 
UCTOB00C15570 
00015580 
00015590 
00015600 
00015610 


o  o  o  o  o 
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C 

suhooutinf 

•  mu. 

/• 

//  o»  0iSP«nLn,nsN«MFS727,iA8N. common 
//  no  • 


THIS  SUBROUTINE  is  FOR  COLO  START  INITIAL  CONDITION. 

RETURN 
C 

FNO 


00019670 
00019630 
0001 96*0 
00019690 
00019660 
00019670 
00019660 
00019690 
00019700 
00019710 
00019770 
00019730 
00019790 
00019790 


SUBROUTINE 
•  INIT7  ( MARK  1 1 

/• 

H  00  DlSP>OLO(nSN«M£S727.AHN. COMMON 
//  00  • 

RFAL  MFTFR 
OIMENSION  HEIGHT  <961 
LOGICAL  FAH 
C 

I  NO  •  9 

IF  I  MARK  1  .FO.  01  GO  TO  71 

C 

C  RF AO  ONI T  CARO  FOR  GEOGRAPHY 
C 

79  RFAO  I  1  Nil  <*1101  TEMSCL 

IF  (TEMSCL  .FO.  FARFN 1  GO  TO  86 
IF  (TEMSCL  .FO.  CENT 1G I  GO  TO  96 
STOP  19171 
66  FAHa.TROF. 

GO  TO  97 
96  FAHa.FALSF. 

GO  TO  97 

19  MR  I TE  <6,761 
STOP 

97  CONTINOF 


00019760 

00019770 

00019760 

00019790 

00019800 

00019810 

00019670 

00019830 

00019890 

00019890 

00019860 

00019870 

00019880 

00019890 

00019900 

00019910 

00019970 

00019930 

00019990 

00019990 

00019960 

00019970 

00019960 

00019990 

00016000 

00016010 


uouuCu 
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REAO  GEOGRAPHY  DECK 

OCEAN!  SEA  SURFACE  TEMPFRATURF 
LAND!  -64 

SEA  ICE  CR  LANO  ICE!  -96 
00  15  I L • 1  *  NARK  1 

RFAO  '■?  I NU  *10?)  lTO;>OG(J,li.)*J»l«i5),lLl,(TOPOG(J,IL)*J«,6»30) 
X.ITOPOGIJ,  IU  ,J*3 1,46)  ,113 
IF  IIL1.NE. I12.1R. II?. NE.ILJ.OR.ILl.NE.il)  GO  TO  19 
15  CONTINUE 

00  23  1L *1 • IN 
00  23  JL  *1 • JH 

IF  I TOPOGI JL « ll )  ,LE.  -64.01  GO  TO  23 

IE  (FAH)  TOPOGI JL • IL  ) *  I TOPOGI JL » IL 1-32.0 )*5. /9. 

TOPOGI  Jl , IL ) ■TOPOGI  JL,IL)*273.0 
23  CONTINUE 

CNST«GRAV*30«48 

MCST-1. 

C 

C  read  UNIT  CARO  FOR  TOPnGR APHY 
C 

REAO  I I NU .110)  HSCl 

IF  IMSCl  .NE.  FEET  .ANO.  HSCL  .NE.  METER  1  GO  TO  78 
IF  IMSCL  .EQ.  METERIHCST-39. 39/120. 

CNST»CNST*HCST 
00  10  1*1 .MARK  1 
C 

C  REAO  TOPOGRAPHY  DECK 

REAO  MNU.lOl)  IHEIGMTIJ1.J. 1,251, 111, IHEIGMTIJI.J. 26, JM1.IL2 
IF  I IL1  .NE.  IL2  .OR.  I L 1  .NF.  II  GO  TO  19 
00  20  J*1.JM 

IF  ITC2UGIJ, 11+64.0)  60,50,20 

50  TOPOGI J« I ) «-HE IGHT ( J | *CNST 
GO  TO  20 

60  TOPOGI  J.  II— I  HE  IGHT  I  J I «CNST  +  10.E5  ) 

20  CONTINUE 
10  CONTINUE 
71  RETURN 

78  WRITE  16,112)  HSCL 
STOP  19122 
C 

101  FORMAT  I25F3.0,1X,|4/21F3.0,13X,I4) 

102  FORMAT  I'5E4.1,18X,I2/15F4.1,18X,I2/16F4.1,14X,I2) 

110  FORMAT  ,A4) 

111  FORMAT  I1H1.6X,2A6,40H  NOT  RFCOGNI 2E0  AS  TEMPERATURE  CONTROL. 

112  FORMAT  I 1H1.6X.2A6, 36H  NOT  RECOGNI 2E0  AS  HEIGHT  CONTROL.  ) 
76  FORMAT  I ///69H  GEOGRAPHY  OATA  SEQUENCE  ERROR,  RELOAD  GEOGRAPHY 
9  ANO  PUSH  START.////) 

OATA  FAREN/4HFAHR/,CENTIG/4HCENI/,FFET/4HFEET/,METER/4HMETE/ 
ENO 


00016020 
00016030 
00016040 
00016050 
00016060 
00016070 
00016080 
,  I L2  OOG 16090 
00016100 
00016110 
00016120 
00016130 
00016140 
00016150 
00016160 
00016170 
00016180 
00016190 
00016200 
00016210 
00016220 
00016230 
00016240 
00016250 
00016260 
00016270 
00016280 
00016290 
00016300 
00016310 
00016320 
00016330 
00016340 
00016350 
00016360 
00016370 
00016380 
00016390 
00016400 
00016410 
00016420 
00016430 
00016440 
00016450 
00016460 
100016470 
00016480 
DECK00016490 
00016500 
00016510 
00016520 
00016530 
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*.  MAP  PROGRAM  LISTING 

To  facilitate  the  output  of  the  primary  dependent  varlablea  and 
auxiliary  physical  quantities,  a  msnber  of  routines  for  the  production 
of  analyzed  maps  have  been  prepared.  Examples  of  these  maps  have  been 
given  In  Chapters  III  and  IV.  The  FORTRAN  listing  of  the  complete  set 
of  map  routines  Is  given  below,  with  the  cards  in  the  program  numbered 
sequentially  for  easy  reference.  Each  of  the  map  subroutines  auto¬ 
matically  computes  the  zonal  average  at  each  grid  latitude,  as  well 
as  the  global  average.  The  maps  2,  3,  4,  6,  8,  17,  18,  21,  27,  and 
28  may  be  produced  for  an  arbitrary  tropospheric  o  or  p  surface  by 
Interpolation  or  extrapolation  of  the  solutions  at  the  basic  levels 
a  -  1/4  and  o  -  3/4,  while  the  other  maps  refer  only  to  fixed  levels, 
layers,  or  quantities. 

It  may  be  noted  from  the  model  description  (see  Chapter  III) 
that  while  the  primary  dependent  variables  are  computed  each  time 
step,  the  source  or  forcing  terms  (such  as  the  tMabatlc  heating)  are 
computed  every  fifth  time  step.  In  order  that  any  of  the  maps,  wheth¬ 
er  involving  a  dependent  variable  and/or  forcing  term,  may  be  pre¬ 
pared  at  any  time  selected  for  map  output,  portions  of  the  subroutines 
OUTAPE,  VPHI4 ,  AVRX,  and  COMP  1  have  been  made  part  of  the  map  pro¬ 
gram,  a  new  subroutine  MAPGEN  has  been  written,  and  a  substantial 
portion  of  the  subroutine  COMP  3  has  also  been  incorporated.  In  this 
way  those  maps  Involving  heating  or  precipitation,  for  example,  are 
explicitly  computed  from  the  data  at  the  time  requested  for  map  output. 

The  complete  list  of  maps  and  the  levels  associated  with  their 
output  (In  a  coordinates)  Is  shown  helcw;  examples  of  those  maps  marked 
by  an  asterisk  (*)  are  given  In  Chapter  IV,  with  Map  5  given  In  Chap¬ 
ter  III,  Section  F. 

* 

Map  1:  Smoothed  sea-level  pressure  (c  -  1) 

*Map  2:  Zonal  wind  component  (0  s  o  s  1) 

*Map  3:  Meridional  wind  component  (0  S  o  S  1) 

Map  4:  Temperature  (0  £  a  £  1) 


-302- 


Map  5: 

Map  6: 
Map  7: 
Map  8: 
*Map  9: 
*Map  10: 
*Map  11: 
*Map  12: 
Map  13: 
Map  14: 
Map  15: 
Map  16: 
Map  17: 
Map  18: 
Map  19: 
Map  20: 

Map  21: 

Map  22: 

*Map  23: 

*Map  24: 

* 

Map  25: 
*Map  26: 
Map  27: 
*Map  28: 


Topography  (sea-surface  temperature,  land  elevation,  ice 
distribution) 

Geopotential  height  (0  £  a  £  1) 

Unsmoothed  sea-level  pressure  (o  -  1) 

Total  diabetic  heating  (0  £  a  £  1) 

Large-scale  precipitation  rate 
Sigma  vertical  velocity  (o  ■  1/2) 

Relative  humidity  (o  ■  3/4) 

Preclpitable  water 
Convective  precipitation  rate 
Evaporation  rate  (o  -  1) 

Sensible  heat  flux  (o  ■  1) 

Lowest-level  convection  (o  »  1) 

Wind  direction  angle  (0  £  o  5  1) 

Wind  direction  vectors  (0  £  o  s  1) 

Long-wave  heating  in  layers  (o  -  0  to  1/2,  o  -  1/2  to  1) 

Short-wave  absorption  (heating)  in  layers  (o  -  0  to  1/2, 
o  -  1/2  to  1) 

Wind  magnitude  (0  £  o  £  1) 

Surface  short-wave  absorption  (heating)  (a  -  1) 

Surface  air  temperature  (o  ■  1) 

Ground  temperature  (o  ■  1) 

Ground  wetness  (o  ■  1) 

Cloudiness  (high,  middle,  low) 

Pressure  at  sigma  surfaces  (0  £  a  £  1) 

Total  convective  heating  in  layers  (o  -  0  -  1/2,  o  -  1/2  -  1) 
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*Map  29: 
Map  30: 
Map  31: 


Latent  heating  (o  -  1/2  to  1) 
Surface  long-wave  cooling  (a  -  1) 
Surface  heat  balance  (o  ■  l) 
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r!!!!*****M*************************************** 
£******** ************************************ ****** 
C* 

c* 
c* 
c* 

c***********************„„„„,^^^^^^ 


MAP  LIST  FOR  MINT7-ARAKAWA  TWO-LEVEL  GENERAL  C 


/* 

// 

// 


00 


100 

101 

102 

103 

104 

105 

106 
107 


D1SP*0LD»DSN*MES727 . A BN. COMMON 
DO  * 

CDMMON/COUT /ZM (46), SURF, LEV.ISL, NAME (131 
COMMON  /C0T/TAP1N 

01  MENS  ION  MAP (99  I , SRF ( 99 ) , SNT ( 99 ) ,2 M2 (46) 

OATA  JHLK/4H  /  ' 

DATA  HCTP/'TAPE  •/ 

FORMAT  (5F10.0) 

( 12.2E10.0, 13A4I 
( *( 1X.E8.3I  ) 

< IX. 1 2  *  2 ( 1X.FR.3I  ) 

(1X,E8.2»2X,12»2X,ER.2,2X,I3A4,2X,FI3.5) 

(2E10.0.A4) 

(lX,Ffl.3,lX,FR.3,2X,A4) 

(1M1) 


*******************,,00000010 

************** *******00000020 

*00000030 

*00000040 

1RCUL  AT  ION  MODEL  *00000050 
*00000060 
*00000070 

************** *******00000080 
****** *************,*00000090 

00000100 


FORMAT 

FORMAT 

FOPMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


200 


230 


250 


00000110 

00000120 

00000130 

00000140 

00000150 

00000160 

00000170 

OOOOOIRO 

00000190 

00000200 

00000210 

00000220 

00000230 

00000240 


READ  (5.105)  TO.TEND.TAPIN 

00000250 

WRITE  (6.106)  TO.TEND.TAPIN 

00000260 

Topnr.d.i  1  —  1.0 

00000270 

IF  ( TAPIN.NF.HCTPI  REAO  (fl)  TOPOG 

000002R0 

T  SA  sT()PQG(  1.1) 

00000290 

T0*24.*T0 

00000300 

TEND=24.  * T E NCJ 

00000310 

DA  VI =24. *3600. 

00000320 

EJECT=0.0 

00000330 

1=0 

00000340 

RFAD  (5,101)  mapno.sijrf 

00000350 

WRITE  (6,1031  MAPNn.SDRF 

00000360 

1  =  1+1 

00G00370 

MAP(  |  )  sMAPNIl 

000003R0 

IF  |  MA  PNI).  EO.  0 )  GO  Tn  230 

00000390 

SR  F  (  I  )=SIIRF 

00000400 

SNT ( I  )  =S 1  NT 

00000410 

DO  TO  200 

00000420 

CONTINUE 

00000430 

T  I  =0 . 0 

00000440 

READ  (R)  TAU.C 

00000450 

DAY=OA V 1 

00000460 

IE  (TAU.EO.TSA )  GO  TO  250 

00000470 

NOnuT=0 

000004R0 

T2  =  TAU/24. 

00000490 

IE  (EJECT. NE. 0.0)  F JEC T =E JEC T+ 1 .0 

00000500 

IE  (EJECT. EO. 2.0)  PRINT  107 

00000510 

WRITE  (6,102)  TAII.T2 

00000520 

IE  (TAU.LT. 0.0)  GO  TO  250 

00000530 

CALI  OUTAPE 

00000540 

IE  (TAU.LT. TO)  GO  TO  250 

00000550 

IE  (TAU.GT.TENO)  CALL  EXIT 

00000560 

00000570 
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IF  (TAU.LE.T1)  GO  TO  250 
T 1*  TAU 
IM 

IF  (EJECT. NE. 0.0)  GO  TO  270 
CALL  C0MP3 
PRINT  107 
EJECT-1.0 
270  MAPNO«MAP(l) 

IF  (MAPNO.EO.O)  GO  TO  250 
SURF«SRF( I ) 

SINT*SNT ( I ) 

00  275  J*  1 , 1 3 
275  NAME ( J ) « JBLK 

CALL  MOPGEN  (MAPNO) 

00  290  J«1,JM 
ZM2 ( J ) *0.0 
FCNT  *0.0 
DO  280  K  « 1  , 1 M 

IF  ( TOPOG (J.K).LT.l.O)  GO  TO  280 
ZM2 ( J ) *Z  M2 i J ) ♦M0RK2 ( J , K  ) 

FCNT*FCNTt .0 
280  CONTINUE 

IF  (FCNT.NE.O.O)  2M2 ( J ) = 2M2 ( J ) /FCNT 
290  CONTINUE 

MR  I TE ( 9 ) T AU , 1 0. MAPNO .NAME .SURF.STAGI .STAGJ.SINT *  WORK 2, ZM,ZM2,ZMM 

PRINT  104, T2, MAPNO, SURF, NAME 

I*l*l 

GO  TO  270 
END 


00000580 

00000590 

00000600 

00000610 

00000620 

00000630 

00000640 

00000650 

00000660 

00000670 

00000680 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

00000760 

00000770 

00000780 

00000790 

00000800 

00000810 

00000820 

00000830 

00000840 

00000850 

00000860 
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SUBROUT I NE  OUTAPE 

//  00  OISP*OLDfDSN=MES727. ABN. COMMON 
//  00  * 

COMMON  /CDT/TAPIN 
DATA  BC  TP/ ' TAPE ' / 

K  =  fl 

READ  (K)  P 
REAO  (K)  U 
READ  (K)  V 
REAO  (K)  T 
REAO  ( K I  03 

IF  (TAPIN.EQ.BCTP)  REAO  (8)  TOPOG 

REAO  (K)  PT 

REAO  (K)  GW 

READ  (K)  TS 

READ  ( K )  GT 

READ  (K)  SN 

READ  (K)  TT 

REAO  ( K )  03T 

REAO  (K)  SD 

IF  I  TAPIN.NE.BCTP)  RETURN 

REAO  (K)  H 

READ  (K)  TD 

RETURN 

ENO 


00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
00001070 
00001080 
00001090 
00001100 
00001 110 


-307- 


SUBROUTINE  MOPGEN  (MAPNO) 

/* 

//  00  D1SP=0L0,DSN*MES727. ABN. COMMON 
//  DO  * 

COMMON  /SCTL/  RCTL<2>,  ICTL ( 10  ) 

COMMON  /COUT/  ZM(46),SURE,LEV«1SL«NAME( 13) 

EQUIVALENCE  (LEVEL, SURE) 

LOGICAL  LEV 
MAPGEN* .TRUE . 

LEV=. FALSE. 

IE  (SURE. LT. 2.0)  LEV*. TRUE. 

C 

GO  TO  < 301, 302, 303, 304, 305, 306, 307, 30R, 309, 310 

*  ,311,312,313, 314, 315, 316, 3$7«318, 319, 320 

*  *321, 322, 323, 324, 325, 326, 327, 328, 329, 330, 331), MAPNO 


301 

CALL 

MAPI 

GO  TO 

1  410 

302 

CALL 

MAP2 

GO  TO 

l  410 

303 

CALL 

MAP  3 

GO  TO 

410 

304 

CALL 

MAP4 

GO  TO 

410 

305 

IE  (K 

EY< 18)  )  MAPGFN=. FALSE 

CALL 

MAP  5 

GO  TO 

410 

306 

CALL 

MAP  6 

GO  TO 

410 

307 

CALL 

MAP  7 

GO  TO 

410 

30H  IE  ( NOOUT , EO.O )  CALL  COMP 3 
NOOIIT  ■  1 
CALL  MAPH 
GO  TO  410 

309  IE  (NOOUT. EO.O)  CALL  COMP 3 
NOOUT  « 1 
CALL  MAP 9 
GO  TO  410 

310  CALL  M A P 1 0 
GO  TO  410 

311  CALL  MAP  11 
GO  TO  410 

312  CALL  MAP  1 2 
GO  TO  410 


00001120 
00001130 
00001 140 
00001  ISO 
00001160 
00001170 
00001180 
00001 190 
00001200 
00001210 
00001220 
00001230 
00001240 
00001250 
00001260 
00001270 
00001280 
00001290 
00001300 
00001310 
00001320 
00001330 
00001340 
0000! 350 
00001360 
00001370 
00001380 
00001390 
00001400 
00001410 
00001420 
00001430 
00001440 
00001450 
00001460 
00001470 
00001480 
00001490 
00001500 
00001510 
00001520 
00001530 
00001540 
00001560 
00001560 


313  If  (NOOUT. 60.01  CALL  COMP 3 
NOOOT-1 

CALL  MAP 13 
GO  TO  410 

314  If  ( NOOUT *60.01  CALL  C0MP3 
NOOU*  '•  1 

CALL  «P14 
GO  TO  410 

315  If  (NOOUT .60.0)  CALL  C0MP3 
NOOUT- 1 

CALL  MAP 15 
GO  TO  410 

31*  If  (NOOUT. 60.01  CALL  COMP 3 
NOOUT- 1 
CALL  MAP  16 
GO  TO  410 
317  CALL  MAP  7 

00  3175  1-1, !M 
00  3175  J-l.JM 
3175  MONK  1  ( J .  I  I -WORK? ( J •  1 1 
CALL  MAP  3 
CALL  MAP  17 
GO  TO  410 
31N  CALL  MNP  2 

00  3195  I-1.IM 
00  3195  J-l.JM 
3195  MONK 1 ( J , | | -MONK 2 ( J « I ) 

CALL  MNP  3 
CALL  MNP  19 
GO  TO  410 

319  If  (NnOIIT.  60.01  CNLL  COMP 3 
NnnuT-i 

CNLL  MNP  1 9 
Gn  TO  410 

370  If  (NOOUT. 60. 01  CNLL  COMP 3 
NOOUT-1 
CNLL  MNP70 
GO  TO  410 
371  CNLL  MNP  2 

00  3715  I-1.IM 
00  3715  J-l.JM 
3715  MONKHJ.I  >-M09K7(J,Il 
CNLL  MNP  3 
CNLL  MNP  71 
GO  TO  410 

377  If  (NOOUT. 60. 01  CNLL  COMP 3 
NOOUT- 1 
■'ALL  MNP77 
GO  TO  410 


00001570 
00001580 
00001590 
00001600 
00001610 
00001670 
00001650 
00001640 
00001650 
00001660 
00001670 
00001690 
00001690 
00001700 
00001710 
00001770 
00001730 
00001740 
00001750 
0000 1 760 
00001770 
00001790 
00001790 
00001900 
00001910 
00001870 
00001930 
00001940 
00001650 
00001960 
00001970 
00001890 
00001990 
00001900 
00001910 
00001970 
00001930 
00001940 
00001950 
00001960 
00001970 
00001990 
00001990 
00007000 
00007010 
00007070 
00007030 
00007040 
00007050 
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IP  INOnnT.EO.OJ  CALL  C0NP3 

N00UT-1 

CALL  MAP?) 

GO  TO  410 
3?4  CAU  NAP24 
GO  TO  410 
CALI  NAP  2S 
GO  TO  410 

326  IF  (NOOUT. 60. OJ  CALL  C0NP3 
NOOUT* 1 

CALL  NA*26 
GO  TO  410 

327  CALL  NAP27 
GO  TO  410 

328  IF  INnnuT.60.0J  CALL  COMP 3 
NOOUT • 1 

CALL  NAP?* 

GO  TO  410 

3 2*  CNOOUT.60.OJ  CALL  C0MP3 

NOOUT ■ 1 
CALL  NAP?9 
GO  TO  410 

330  IF  IN00UT.6O.0J  CALL  C0MP3 
NOOUT a 1 

CALL  NAP30 
GO  TO  410 

331  IF  INnnuT.60.0J  CALL  COMP) 
NOOUT »1 

CALL  NAP  31 
GO  Tfl  410 
610  *6 Turn 
c 

FNO 


00002060 
00002070 
000020*0 
00002090 
00002100 
00002110 
00002120 
00002130 
00002140 
00002  ISO 
00002160 
00002170 
000021*0 
00002190 
00002200 
00002210 
00002220 
00002230 
00002240 
000022S0 
00002260 
00002270 
000022*0 
00002290 
00002300 
00002 3 10 
00002320 
00002330 
00002340 
00002 3S0 
00002360 
00002370 
000023*0 


FUNCTION  |PK<  IL.IR) 
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00002390 

INTEGER  1 HAL  F  *2 1 2 1 

00002400 

EQUIVALENCE  1  1  HALF  I  1 1 < 1 W(  1 

00002410 

I half ( 1 1  -  I L 

00002420 

1 HALF  1 2 )  ■  IK 

00002430 

IPKalUO 

00002440 

A F TURN 

00002430 

ENTRY  IRHIIPKWOI 

00002460 

IMOaIPKNO 

00002470 

1  RH« I HALF (21 

000024R0 

RETURN 

00002490 

entry  ilhiipkhoi 

00002300 

IHOalPKtaO 

00002310 

1 LH« I HALF ( 1 1 

00002320 

RFTURN 

00002330 

ENO 

00002340 

FUNCTION  VPH|4  (J.l) 

00002330 

c 

00002360 

/* 

00002370 

// 

00  OI5P»nLO,OSN«HES727.AHN.CnMHON 

000023H0 

// 

00  • 

00002390 

VPH | 4*0. 

00002600 

IF  (TOPOGI Jtll.LT.  1.01  VPH|4«AH00I-T0PHGIJ,|  |,lo.E3l 

00002610 

c 

00002620 

RETURN 

00002630 

ENO 

00002640 

logical  FUNCTION  KFVIM) 

00002630 

LOGICAL  KEVSMI32I 

00002660 

COHHON  /VKEVV/  KEYS 

00002670 

N-IARSI Ml 

000026R0 

KFV-KEVSINI 

00002690 

IF  (M  .LT.  01  KEVSINI*. FALSE. 

00002700 

RETURN 

00002710 

END 

00002720 

r>  r»  r\ 
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// 

// 


C 

C 

c 


c 

no 

c 

n* 

c 


i?« 


S  If  H  R  OUT  |  M  p 

*  H£PJ  ' 

00002730 

)0  01 SPaniO'OSMtME S72  7, A HN, COMMON 

00002740 

00002750 

00  » 

00002760 

*M«*6I.SORF,LFV.lSL.NAMFU3l 

LOGICAL  LFV*  S  T  Af.j  ,  SI  AG  1  •  | SI 

00002770 

000027*0 

OIMFNSION  NAMFL  1 1 3  ) 

00002790 

SFA  LFVFL  PRESSURE  »  MAP  T  VPF  1 

00002*00 
00002 R 1 0 

00002820 

Li.*»2 

00002830 

F|M.  |M 

00002*40 

00002850 

IMM2«lM-2 

00002860 

JNMJ.JM-1 

00002870 

STA  GJ> . FALSF . 

00002**0 

STAG|«. FALSE. 

00002890 

S IG 1 «S 1 G( 1 | 

00002900 

SIG3«Str.(2l 

00007910 

FLR««5*»182*/( 30.4R*(;nav) 

00002920 

00  110  1 >1 ,NL 

00002930 

00002940 

NAME! | I *NAMFL ( 1 1 

00002950 

00  11*  J-1..IM 

00002960 

00002970 

/M( J  1«0.0 

00002980 

00  128  I-1.IM 

00002990 

00003000 

00  12*  j.i.jm 

00003010 

Pm[4«VPH|4| J,  I  I 

00003020 

pj 1 *p ( J , 1  I 

00003030 

T1a.|LH|03TIJ,1  II 

00003040 

T4.TT4/10. 

00003050 

EKTRAPOLATFO  SlIRFACF  AlP  TEMPERATURE 

00003060 

U»T(J,1,L1I 

00003070 

T3»T(J,1,l?| 

000030*0 

T*“l .5*T3-0.5*T1 

0000  3090 

RTMaRGAS*(T4*PLR*PH(4| 

00003100 

ACLa(PJ|«PT*HP|«EXP(PH|A/*|MI-PSL 

00003110 

/Ml JI«/M(J|4ACC 

00003170 

morki |J,| |*ACC 

00003130 

0  000  3 1 40 

-312 


C 


148 


C 


198 


C 


C 


00  148  I  ■  1 « I M 
ipi-modii.imim 

I  Ml ■MODI  I ♦ I MM2  *  1 M |4  1 
W0RK2I JM«l)aW0RKll JM«| I 
W08K2 I  1 »  I  ) "WORKl (I*)) 

00  148  J*2 « JMM1 

M0RK2 ( J « I  I ■ (  WORK  1 ( J* 1 » I M 1  I *2. *WOB HI  I J ♦ 1 
t  ♦2.*W0RK1( J,1M11  ♦4.4W0RK1I J,l 

•  ♦  W0RK1(J-1,|M1|<>2.*W0RK1IJ-1 

2MM-0.0 

WTM-0.0 

00  198  J ■ 1 » JM 

WTM-WTM  ♦  ABSfDXYPfJI) 

ZM|  J)«ZMI  JI/MM 
ZMN«ZMM4ZM(J»*ABS(0XVP« Jl) 

ZMMaZMM/WTM 

SPOL-ZMIl) 

MPOlaZMfJM) 

ORTA  NAMEL/’SEA  LEVEL  PRESSURE  SMOOTHED 
DATA  NL/13/ 

RETURN 

ENO 


00003190 

00003160 

00003170 

00003180 

00003190 

00003200 

00003210 

It  ♦  W0RK1I J41.IP1)  00003220 

♦2.4W0RK1I J.IP1I  00003230 

It  ♦  WORK  1 I J-l • I  PI ) 1/ 16*00003240 

00003290 

00003260 

00003270 

00003280 

00003290 

00003300 

00003310 

00003320 

00003330 

00003340 

00003390 

I  MB- 1 000*  t  •/  00003360 

00003370 

00003380 

00003390 

00003400 


o  o  o 
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$  U  B  8  0  U  T  (ME 

•  MAP2  - 

//  00  OlSP-OLO,OSN«MES727.ABN.CnMMON 

//  on  • 

LOGICAL  LEV,  STAGJ,  STAG  1 ,  1SL 
COMMON  /COUT/  ZM( A6) , SOME, LEV, I SL ,NAMF ( | 3 ) 
EQUIVALENCE  (SURE, SIGH 
01  ME  NS  ION  NAMED  13) 


EAST-WEST  (II)  WINO  COMPONENT,  MAP  TVPE  2 


E 1 M«  1  M 
STAGJ ■.TRUE. 
STAG1-.TRUE. 


00  110  1 ■ 1 ,NL 
110  NAME ( I ) «NAMEL ( 1 ) 

C 

210  Ll-1 
L2«2 

SIGLl-SIGILl ) 

S1GL2*S 1G(L2 ) 
0S1G«1./(S1GL2-S1GL1  ) 
C 

IE  (LEV)  GO  TO  310 
C 

ES- A. • ( SOR  E-PTRDP ) 

C 


220 


C 

310 


320 


on  220  1  ■ I , 1M 
W0RK2( 1 , I ) *0.0 
IP  I “M00( 1 , 1M )  ♦  1 
on  220  J-2.JM 
S1GPS>PS/(PI J, |  | 

wnRK2(j,n«nsiG»( 

Gn  TO  A10 


♦  P(J,1P1)  ♦  PIJ-1,1)  ♦  PIJ-I.IP'I) 

(  S  IGPS-S 1GL 1 ) *IM  .1, 1  ,L2 ) ♦  ( S I GL2-S 1GPS  I •!!(  J,  I  ,L  1 ) ) 


0S1G1»(S1GL-S1GL1 I*DS1G 
0SIG2»(S1GL2-SIGL)»DS1G 
00  320  1-1, IM 
WORK  2 ( |  ,  1 ) -0.0 
00  320  J«2,JM 

WORK 2 (  J,  1 )  «n 5  IG1«II(  J,  |  ,L2  )♦!)(  J,  1  ,L  1  )*0S  lfi? 


00003A10 

00003A20 

00003A 30 

00003AA0 

00003A50 

00003A60 

0000 3A70 

00003A80 

00003A90 

00003500 

0000351 0 

00003520 

00003530 

000035A0 

00003550 

00003560 

00003570 

00003580 

00003590 

00003600 

00003610 

00003620 

00003630 

0000 36A0 

00003650 

00003660 

00003670 

00003680 

00003690 

00003700 

00003710 

00003720 

00003730 

000037A0 

00003750 

00003760 

00003770 

00003780 

00003790 

00003800 

00003810 

00003820 
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C 

410  ZMM-0.0 

WTM-0.0 
ZM( 11-0.0 
0(1  430  J-2.JM 
SUM-0.0 
00  420  1*1 'IM 
420  SUM-SIJM+W0RK2I  J.  I  ( 

CL*T-*BS(C0S(.5*(L*T(J-1  )  ♦  LATI JIM ) 

2M( J1-SUM/F1M 
WTM«WTM*CLAT 
430  ZMM-ZMM^ZMI J)*CIAT 
ZMM-ZMM/WTM 
SP0L-ZMI2) 

NPDL-ZMI JM) 

C 

OATA  NAMEl/ 'EAST-WEST  III)  MINI)  COMPONENT  IM/SlC) 
OATA  NL/ 13/ 

RETURN 

C 

C 

END 


00003830 
00003840 
00003R50 
00003B60 
00003870 
00003880 
00003890 
00003900 
00003910 
00003920 
00003930 
00003940 
00003950 
00003960 
00003970 
00003980 
'"/  00003990 
00004000 
00004010 
00004020 
00004030 
00004040 


non 


■315- 


SlIBROOT  I  n  f- 
*  MAP3 

//  00  01  SP  =  l)L0,L)SN*MES727.ABN.CflMMnN 
H  00  * 

LOGICAL  LEV,  STAGJ,  STAG1,  1SL 
COMMON  /COUT/  2M( 46 ) , SORE ,LEV , 1 SL,NAME (  I  3 ) 
EOOI VALENCE  I  SORE , S I GL ) 

01  MENS  I  ON  NAMEL (13) 


NORTH-SOOTH  (V)  WIND  COMPONENT,  MAP  TYPE  3 


no 


210 


C 

C 


220 


E  I  M«  |  M 

STAGJs, true. 

STAGI «. TROE  . 

00  110  1«1,NL 
NAME! I ) z NAMEL ( 1 ) 

Ll-1 

L2«2 

SIGL1«S1G(L1  ) 

S| GL2«S I G ( L2  ) 

USI  G«  1  ,/ ( S IGL2-S IGL 1  I 

IE  (LEV)  GO  TO  310 

PS«4,*( SURE-PTROP) 

00  220  1  *  1  ,  | M 
1P1  «MOI)(  |  ,  | M  )  + 1 
00  220  J.l.JM 

SIGPS*PS/( P( J, I )  ♦  P(J,IP|)  ♦  P(j-|,l)  ,  P(J-I,IP|)) 

l,n"!?1li!i,,nS,6',IS,(if'S"S,i;LI  »*V(.I,I,L?)4(SIGL2-SIGPS)*V( 
0(1  III  410 


00004050 
00004060 
00004070 
000040R0 
00004090 
00004100 
000041 10 
00004120 
00004130 
00004140 
000041  SO 
00004160 
00004170 
000041  BO 
00004190 
00004200 
00004210 
00004220 
00004230 
00004240 
00004250 
00004260 
00004270 
000042R0 
00004290 
00004300 
00004310 
00004320 
00004330 
00004340 
000043S0 
Jilillll  00004360 
00004370 


316- 


C 


310 

0SIG1-I SIGL-SIGL 1 )*OSIG 

00004300 

0SIG2«ISIGL2-SIGL)*0SIG 

00004390 

00  320  I-1.1H 

00004400 

00  320  J-l.JM 

00004410 

320 

C 

WORK 21 Jtl)«0SIGl*VIJtliL2)  ♦  VI J, | ,L1 )*DSIG2 

00004420 

00004430 

410 

1 MM. 0.0 

00004440 

WTM.0.0 

00004450 

00  430  J-l.JH 

00004460 

SUM-0.0 

00004470 

00  420  1-1, |M 

00004400 

420 

SUM-SUM+W0RK2 I J. I  | 

00004490 

CLAT-ABSICOSILATIJ)  |) 

00004500 

2M1  JI-SIIM/FIH 

00004510 

WTM-WTM^CLAT 

00004520 

430 

2 MM. 2  MM+Z  M( J | *CL  AT 

00004530 

2MM-2MM/WTM 

00004540 

SPOL-ZMIl) 

00004550 

NP0L-2M( JH» 

00004560 

C 

00004570 

C 

00004500 

oin  Nl7i3/'NO"™’SO°TH  ,V’  W,"°  COGENT  (M/SEC) 

00004590 
'/  00004600 

C 

00004610 

RETURN 

00004620 

END 

00004630 

00004640 

J  o  u  u  u 


-317- 


// 

// 


i _ UWROUT  imp 

*  HAP4 

OD  DISP*OLD,DSN*MES727. ABN. COMMON 
DO  * 

LOGICAL  LEV,  STAGJ,  STAGI,  ISL 
COMMON  /COUT/  ZM  (  46  I , SURF ,LE V  , I SL  .NAME 1131 
EQUIVALENCE  (SURF.SIGLI 
DIMENSION  NAMEL (131 


TEMPERATURE*  MAP  TVPE  4 

VERTICAL  INTERPOLATION  IS  WITH  POTENTIAL  TEMPERATURE 
IN  P«*KAPPA  SPACE. 


F|M*|M 

STAGJ*. FALSE. 
STAGI*. FALSE. 

C 

CO  110  1*1, NL 
110  NAME ( I  I aNAMEL ( I  I 
C 

210  L 1  ■  1 
L2-2 

SIGL1*SIG(L1 I 
SIGL2*SIG(L2 I 
psk*surf**kapa 
c 


000046S0 

00004660 

00004670 

00004680 

00004690 

00004700 

00004710 

00004720 

00004730 

00004740 

00004750 

00004760 

00004770 

00004780 

00004790 

00004800 

00004810 

00004820 

000C4830 

00004840 

00004850 

00004860 

00004870 

00004880 

00004890 


00  220  1-1, |M 
DO  220  J* 1 , JM 
SP»P(J,|| 

IF  (LEVI  PSK*(SIGL*SP*PTR(IP|**kAPA 
PLIK-(SIGL1*SP  +  PTR(JP)**KAPA 
PL2K-<SIGL2*SP«PTROPI**KAPA 
TP0TLI*T(J,|,L1I/PLIK 
TPOTL2*T(J,|,L21/PL2K 

220  W0RK21 j, | l*PSK/(PL2K-PL IK  I* ( TPOTL 1  * ( PL2K-PSK |  ♦ 


00004900 
00004910 
00004920 
00004930 
00004940 
00004950 
Of  104960 
0  004970 
J  104980 

(PSK-PLlK)*TP0TL2»m  04990 


O  J5000 


o  o 


-31 6- 


C 

C 

MO  ZMM.o.O 
WTM«0.0 
00  430  JM.JH 
SUM»0.0 
DO  420  I >1 ,  |M 
MO  SUM»SUM+W0RK2  I  J*  I  ) 
CLATaABSIDXYP(J) ) 
ZN( JlaSUM/ElM 
WTM«WTM4CLAT 
430  ZBM.ZMM4ZH(J)*CLAT 
ZMM.ZMM/WTM 
NPOfZM(JM> 
SPOL»ZMU) 


MU  Jf^L/'TEMPERATUPE  10EGREES  CENT  I  GRADE  I 
OMA  TKEL/-2  73„  1  / 

RETURN 

ENO 


00^05010 
00005020 
00005030 
00005040 
00005050 
00005060 
00005070 
000050R0 
00005090 
00005100 
000051 10 
00005120 
00005130 
00005140 
00005150 
00005160 
00005170 
'/  00005180 
00005190 
00005200 
00005210 
00005220 
00005230 


n  o  o 


-319- 


S  U  8  R  0  II  T  inf 
*  MAP5  • 

//  00  DISP=OLO,OSN=MES727. ABN. COMMON 

//no  * 

C 

LOGICAL  LEV,  &TAGI , STAGJ,  I SL 
COMMON  /COUT/  ZMI46) , SURF ,LEV, I SL  .NAME ( 1 3 J 
EQUIVALENCE  (SURF.SIGL) 

01  MENS  I  ON  NAM El  1131 .NAME 2 1  131 

GEOGRAPHY,  MAP  TYPE  5 

FIM  =  IM 
FJM  *  JM 
STAGI*.  FALSE. 

STAGJ= , FALSE , 

CNST=30.48*GkAV 
C 

00  110  I  *  1 , NL 
NAME! I  1 sNA ME  1 ( I ) 

^  110  IF  (.NOT. LEVI  NAME ( I  I =  NAME  2  1  I  I 

00  220  I=1,IM 
00  220  J=1,JM 
TG=TOPOG( J, I > 

IF  (.NOT. LEV)  GO  TO  215 
IF  (TG.LT.l.O)  GO  TO  205 
TG=  TG-273. 

GO  TO  220 

205  IF  (TG+10.E5.EQ.0.0)  GO  TO  220 
210  TG=10.E5 
GO  TO  220 

215  IF  (TG.GT.1.0)  GO  TO  210 
TG=-TG 

IF  (TG.GT.9.E5)  GO  TO  218 
TG=  TG/CNST 
GO  TO  220 

218  IF  (TG.EQ.10.E5)  GO  TO  220 
TG  =  -( I  0  ,  E5+ ( TG- 10.F5 I /CNST I 
GO  TO  220 
220  -WORK  2  (  J  I  )  *TG 
C 

410  WS=0.0 

WN=0.0 

00  A 1 5  1  =  1, IM 
WS*WS+WORK?( 1,1) 

A  1  5  WN=WN+W0RK2 I JM, I ) 
ws=ws/fim 

WN=WN/F  IM 
00  A20  1  =  1, IM 
WORK  2 ( 1 « I ) =WS 
A  20  W0RK2I JM, I )=Wn 


000052A0 

00005250 

00005260 

00005270 

00005280 

00005290 

00005300 

00005310 

00005320 

00005330 

00005340 

00005350 

00005380 

00005370 

00005380 

00005390 

00005400 

00005410 

00005420 

00005430 

00005440 

00005450 

00005460 

00005470 

00005480 

00005490 

00005500 

00005510 

00005520 

00005530 

00005540 

00005550 

00005560 

00005570 

00005580 

00005590 

00005600 

00005610 

00005620 

00005630 

00005640 

00005650 

00005660 

00005670 

00005680 

00005690 

00005700 

00005710 

00005720 

00005730 

00005740 

00005750 
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ZMM=0.0 
WTM-0.0 
DO  450  J«1,JM 
SUM«0.0 
C I *0 .0 
2M( J).0.0 
DO  430  I»1,IM 
W2»WORK2( J,  I  ) 

IF  < .NOT. LEV)  GO  TO  425 
IF  (W2.GE.10.E5)  GO  TO  430 
ci»c i*i .o 

IF  (W2.LT.0.0)  GO  TO  430 

SUM®SUM+W2 

GO  TO  430 

425  CI-CI+l.o 

IF  (W2.GE.10.E5)  GO  TO  430 
IF  (W2+10.E5.LE.0.0)  W2*- ( W2+ 10.E5  ) 

SUM»SUM+W2 

430  CONTINUE 

CLAT-ABS (COS (LAT<  J) ) ) 

IF  (CI.GT.O.O)  2M(J)=S0M/CI 
Z  M(  J  ( «SUM/F I M 
WTM-WTM+CLAT 
450  ZMM«ZMM>ZM(J )*CLAT 
2MM-2MM/WTM 
SPOL«ZM(  1  ) 

NPOL«ZM< JM) 

DATA  NAME1/' TOPOGRAPHY  (OCEAN  TEMP,  DEG  CENT) 

DATA  ^”^,Tf,PnGRAPHV  I  SURFACE  ELEVATION,  HECTOFEET) 

RETURN 

ENO 


00005760 
00005770 
00005780 
00005790 
00005800 
00005810 
00005820 
00005830 
00005840 
00005850 
00005860 
00005870 
00005880 
00005890 
00005900 
00005910 
00005920 
00005930 
00005940 
00005950 
00005960 
00005970 
00005980 
00005990 
00006000 
00006010 
00006020 
00006030 
00006040 
'/  00006050 
'/  00006060 
00006070 
00006080 
00006090 
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S  U  H  H  0  U  T  I  N  E 
*  MAP6 

U  DO  niSP=nLO,DSN*MES727.AHN. COMMON 
//  00  * 

LOGICAL  L€ V *  STAGJ,  STAGI,  ISL 

COMMON  /COUT/  ZM(46), SURF, LEV, ISL. NAMFI11) 

EQUIVALENCE  (SURF.SIGL) 

DIMENSION  NAMELIID 
C 

C  GEOPOTENTIAL  HEIGHT  SURFACE, 

C  MAP  TYPE  6 

C 

IMM2-IM-2 
JMM1 -JM-1 
STAGI-  .FALSE. 

STAGJ*  .FALSE. 

FIM-IM 

LI-1 

L2-2 

PSK»SURF**KAPA 
HR-RGAS/2  » 

IMM2-IM-2 
SSGL1-SIGIL 1 ) 

SIGL2-SIGIL?) 

DO  no  1*1, NL 
110  NAMEIIl-NAMELm 
00  220  1*1, IM 
I P 1 -MODI  I , IM|,1 
1  Ml -MODI  | ♦ | MM2 , I M ) 4 1 
00  22 0  J *  1 , JM 

SP-PIJ,II 

PL1-(SIGL1*SP*PTR0PI 

PL1K-PL1**KAPA 

PS1-IPL1-PTR0PI/PL1 

PL2-(S1G12*SP4PTR0PI 

PL2K-PL2**KAPA 

PS2-IPL2-PTROPI/PL2 

IF  (LEV)  PSK-(SIGL*SP4PTfl()PI*-KAPA 

PKDTK*KAPA*(PL2K-PL1KI*2. 

PL1KS-FL 1K**2 
PL2KS»PL2K**2 
PSKS-PSK  **2 
P1TP2-PHK*PL2K*2. 

XT2»PS24(PL2KS-P1TP2-PL1KS-2.*PSKS44.*PL1K*PSK I/PK0IK/PL2R 
XTl-PSn(PL2KS*PlTP2-PL  1KS-*.*PL2K*PSK42.*PSKS)/PKDTK/PL  IK 
220  WORK  21 J, I  )-.01-MXTl*T(J,|,Ll|4XT2*T(J,I,L2) I*HR4VPHI4I  J, I ) J/G 


00006100 
00006110 
00006120 
00006110 
00006140 
00006  ISO 
00006160 
00006170 
00006 ISO 
00006190 
00006200 
00006210 
00006220 
J0006210 
00006240 
000062 SO 
00006260 
00006270 
000062A0 
00006290 
00006100 
00006110 
00006120 
00006110 
00006140 
000061S0 
00006160 
00006170 
000061R0 
00006190 
00006400 
00006410 
00006420 
C0006410 
00006440 
00006460 
00006460 
00006470 
000064R0 
00006490 
00006600 
00006610 
00006620 
00006610 
00006640 
RAV  00006660 
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/ MM-Q . ft 

00006*60 

00006*70 

WlN-0.0 

00006*80 

no  430  J* 1 t JN 

00006*90 

SUN-0.0 

00006600 

CLAT-AHSIOXVIM  Jt ) 

00006410 

00  420  1-1.  IN 

00006620 

SUN-$UN«WGftK2( J, | 1 

00006630 

2N(  JI-SUN/HN 

00006640 

WTN-WTN-CLAT 

000066*0 

2NN-2NN4IN|J)*CLAI 

00006660 

2NN-2NN/WTN 

00006670 

SP0L-2NI 1 | 

00006680 

NV0L-2NI JN| 

00006690 

00006700 

OATA  NANfC/ •C.f-nPOTENT  IAI  HEIGHT  1  Mff.TOMf  TE8  S  1 

• /  00006710 

OATA  NL/13/ 

00006720 

RFTUHN 

00006730 

6  NO 

00006740 

u  u  u 
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// 
1 1 
C 


C 

C 


S  U  8  R  II  It  T  IMF 

*  — gggr - - - 

00  01 SP*nLn,OSN«MfS727. ABN. COMMON 
00  * 


COMMON  /CHUT/  2M<46», SURF, LEV, 1SL.NAMF 
inr.lCAL  LEV*  STAGJ,  STAG  I  *  |  SL 
01  MENS  ION  NAMEl  (131 
SIIREACf  PRESSURE,  MAP  TVPF  7 
LI  *1 


t  m 


12*? 


F I M* | M 
|HM?« 1M-? 

JMH1 «JM-1 
STAGJ*. FALSE. 

STAG|«. FALSE. 

SIG1«S!G! 1  I 
S  IG3*S  I (*(  2  J 

ELR*.6*,  1828/1  30.4R*f,R  av  I 

IK)  110  l*I,NL 
I  1(1  NAME  I  |  |  *NAMFl  (  |  | 

C 


IIP 

C 


7MM.0.0 
00  II 8  J«l ,JM 
2M( Jl.0.0 


on  !?«  1*1  *  I  m 
1M1«H0I)(  I  ♦ |MM2 ,  |  M  )  ♦  | 

IP| c MOD ( I  *  1 M | ♦ 1 
on  128  J=1,JM 
PHI  4  =  VPH | A  I J  ,  |  ) 

PJI*P< J.| » 

TT4.|LM(03T( J,  |  |  ) 
ta*tTa/io, 

F  X  TR  APflL  AT  EO  SURFACE  AIR  TFMPFRATHRF 
T 1  *T  ( J  *  |  *L  I  1 
T3«T(J,|,L?> 

T  A* 1 . S*  T 3-0 .  5*T  1 
RTM.RGASFI  T4«FLR*Pm|4  ( 
ACC*tPJ|«PTRnP|*FXPf PHI4/RTMI-PSL 
?M( JI*?M|j>«ACC 
|?R  WORK  2  (  J  *  I  )«ACC 


00006760 
00006760 
00006770 
00006780 
00006790 
00006800 
00006810 
00006/20 
00006330 
0000o840 
00006850 
00006860 
00OO68  70 
00006880 
00006890 
00O0690O 
00006910 
00006920 
00006930 
00006940 
00006950 
00006960 
00006970 
00006980 
00006990 
00007000 
00007010 
00007020 
00007030 
00007040 
00007060 
00007060 
00007070 
000070HI) 
001107090 
00007100 
000071 10 
00007120 
00007130 
000117140 
00007 1 60 
00007  I  60 
00007170 
00007180 
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C 

C 

WlM>0.0 
on  15B  Jal *  JM 
ZM(J)>ZM( JI/FIM 
MTM.NTM  ♦  ABSIDXVPIJ1) 

15B  ZMMaZMM*ZM< J)«ABS(DXYP( J»» 

C  ZMM  IS  GLOBAL  MEAN  SURFACE  PRESSURE 
ZMM-ZMM/MTM 
SPnL-MORK2ll.il 
NPOL -MORK2 I JM » 1 ) 

C 

OATA  NAMEL/'SFA  LEVEL  PRESSURE  UNSMnnTMEO  IMB-IOOO.) 
OATA  NL/1 3/ 

RETURN 

C 

ENO 


00007190 
00007200 
00007210 
00007220 
00007230 
00007240 
00007250 
000C7260 
000C7270 
000072B0 
00007290 
00007300 
•/  00007310 
00007320 
00007330 
00007340 
00007350 
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SUBBOUT  |  N  F 

*  MAP 8 "  - 

//  00  01 SP*OLO,OSN*ME S72 7. AHN. COMMON 
//  00  • 


C 

C 


COMMON  /COOT/  2M|46l,StmF, LEV. ISL. NAME 
LOGICAL  LEV,  STAGJ,  STAGI,  ISL 

equivalence  isigl.surfi 

01  MENS  I  ON  NAMEL413) 

total  heating,  map  tvpe  a 


(131 


01  MENS  1  ON  H71  nooi  .H23U00) 
E  I  M«  |  M 


STAGJ*. FALSE, 

STAGI*. FALSE. 

L 1  - 1 

L2*2 

SIGL1«SIG(L 1 1 
SIGL2«SIG(L?) 

0SIG*1./(SIGL2*SIGLII 

SURF NT  “SURF-PTROP 
IE  ILEVI  SIGX-SIGl 

00  110  I-l.NL 
110  NAME  I | | *NAMEL  I  I ) 

C 

00  22 0  1*1,  |M 
00  220  J * 1 , JM 

IF  I. NOT. LEVI  SlGX*SURFMT/p»  j.|  ) 

H1*ILH(PT(J,| | | 

Hl-Hl/100. 

H3- IKH| PT I J,  |  |  | 

H3*M3/100. 

IF  IJ.NE.II  GO  TO  220 
H21I J»*H1 
M23IJI-H3 

220  M0RK2I J, | )«DSIG*< < SIGL2-SIGX I*H1  ♦  f S I GX-SIGL I )*H3 ) 


00007360 

00007370 

00007380 

00007390 

00007*00 

00007410 

00007420 

00007430 

00007440 

0000 7450 

00007460 

00007470 

00007480 

00007490 

00007500 

00007510 

00007520 

00007530 

00007540 

00007550 

00007560 

00007570 

00007580 

00007690 

00007600 

00007610 

00007620 

00007630 

00007640 

00007650 

00007660 

00007670 

00007680 

00007690 

00007700 

00007710 

00007720 
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1  IB 

00  1  IB  J ■  1  « JH 

00007730 

?*0 

2MIJI-0.0 

OrtuOTTSO 

2MM.0.0 

00007  71)0 
00007770 

WTM.0.0 

000077B0 

00  *30  J*  1  • JM 

00007790 

SUM. 0.0 

00007B00 

CIAT.ARSIOXVPI J| | 

00007B 10 

*20 

no  *20  l  ■  i .  l  m 

00007B20 

SUM.$UM+M0RK2( J, 1 | 

00007B 30 

2MUI-SUM/FIM 

000078*0 

*30 

WTM.WtM«CLAT 

00007B30 

2MM.2MM*2MIJ|*CLAT 

00007B60 

2MM.2MM/WTM 

00007B70 

SB0L-2MU  » 

00007AAO 

NPOl«*M< JMI 

00007B90 

DATA  NAMEL/ 'TOTAL  HEATING  IOEG  CENT /OAV ) 

00007900 
'/  00007910 

OATA  NL/I3/ 

00007920 

RETURN 

00007930 

ENO 

000079*0 

000079S0 

-3/- 


//  on 
// 
c 


n 


n  it 


X 


*  MAP9 

01  SP.0L0.0SN.8F  S  727. AHN .COMMON 
00  • 


F 


C 

C 

C 


LOGICAL  LFV,  STAGl.STAGJ, 
DIMENSION  NAMELU3) 

COMMON  /COUT/  2M(A6I,SURF 
EQUIVALENCE  (SURF.SIGL) 


ISL 

*  l  e  v ,  i 


st 


,namf 
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LARGE  SCALE  RREC IP 1TAT ION,  MAR  TYPE  9 


E1M  «  1M 
EJM  •  J* 
STAGI*. FALSE. 
stagj.. FALSE. 


00  110  1«1,NL 
^110  NAME! 1 l.NAMFL  ( 1 1 


on  2?o  1.1, IM 
on  220  j . i , jm 
FISC* 1RM103T ( J,  1  >> 
??0  W0RK21 J, 1 l.FLSC/10, 

c 


2MM.0.0 
MTM.0.0 
on  aso  j* i , jm 
SOM. 0.0 
on  a  3o  1.1,  |H 
a 30  som. sum  ♦  work ? i j , 1 1 
CLAT.AHSIOXVMI J) ) 

2M« J l.SUM/F 1M 
hTm.hTm.CLAT 
AS0  7MM.2mm*ZMU1*CLAT 
l MM. 2  MM/ W  T  M 
SP(1L«2M»  1  > 

NRni«2M( JM> 

C 


data  :;/"fi//,low  SCAlF  pr^iritation  (mm/oay, 

RETURN 

FNI) 


00007960 
00007970 
000079R0 
0000799'y 
00008G00 
00008010 
00008020 
00008030 
OOOOROAO 
000080S0 
00008060 
00008070 
00008080 
00008090 
00008100 
00008110 
00008120 
O0OO813O 
00008  1  AO 
00008  ISO 
00008160 
00008 1 70 
00008 1R0 
00008190 
00008200 
00008210 
00008220 
00008230 
000087  AO 
0OOO82SO 
00008260 
00008770 
00008780 
00008790 
000(18300 
00008310 
00008370 
00008330 
00008  3A() 

•/  00008 3S0 
00008360 
00008370 
00008380 
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SUBWnuT  INF 

•  MAP10 

/• 

//  00  01 SP*OLO,OSN«MES727. ABN. COMMON 
//  00  • 

LOGICAL  LEV.  STAGJ.  STAGI,  !SL 

COMMON  /COUT/  2M|46I,SURF,LEV,1SL.NAMEI 13) 

EQUIVALENCE  (SURF.SIGL) 

DIMENSION  NAM EL  1131 
01MENS10N  CONM (46,7?) 

C 

C  VERTICAL  VELOCITY.  MAP  TYPE  10 

C 

E1M»1M 
I  MM2* 1M-2 
JNN1*JM— 1 
STAGJ*. FALSE. 

STAGI*. FALSE. 

C 

00  llo  1 • 1 ,NL 
110  NAME ( I  I *NAMEL ) I  I 
C 

2149  L*1 

2150  00  2160  1*1. IM 
IPl-MOOl l,|M).l 
00  7160  J *2, JMM1 

PUIJ.I I *0.2 5*10 YU  I J)*UI J, I ,L (♦OYOI J*1 )*UIJ*1«I.L) ) 

2160  CONTINUE 
C 

CALL  A VR X ( 1 1  ) 

C 

00  2180  1*1, IM 
|P1*MOOII,|M)«1 
I  Ml .MODI  I ♦ I MM2 , 1 M ) ♦ 1 
00  2170  J*2 , JMM 1 

2170  PUIJ.I l*PUIJ,l  )*|PIJ,I)*P|J,|P1)) 

00  2160  J*2,JM 

PVI J,l ) *0. 25*0XU<  J I  *  I  V I J , 1 ,L)*VIJ,|M1,L ) ) • I P I J , I  I +P I J- 1 « I  )  ) 
2180  CONTINUE 
C 

C  EQUIVALENT  PU  AT  POLES.  PVI 1,1  I  IS  USEO  AS  A  WORKING  SPACE. 

VM1.0.0 

VM2-0.0 

00  2185  1*1,  |M 
VM 1 *VM1 *P V  I ?  ,  |  ) 

2185  VM2*VM2*PVI JM,|  ) 

VM1.VM1/F  |M 
VM2* VM2/F  |  M 
PVI 1,11-0.0 


00008390 

00008A00 

00008410 

00008420 

00008430 

00008440 

00008450 

00008460 

00008470 

00008480 

00008490 

00008500 

00008510 

00008520 

00008530 

00008540 

00008550 

00008560 

00008570 

00008580 

00008590 

000086C0 

000086)0 

OOOOBBJ'O 

00008630 

00008640 

00008650 

00008560 

00008670 

00008680 

00008690 

00008700 

00008710 

00008720 

00008730 

00008740 

00008750 

00008760 

00008770 

00008780 

00008790 

00000800 

00008810 

00008820 

00008830 

00008840 

00008850 

00008860 

00008870 

00008880 
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DO  2190  1«2,  |M 

2190  PV<1* l)ap VI 1,1-1 )a(PV(2, I 1-VN1 I 
VMl-O.O 

00  219?  |-|,|H 
219?  VMlaVMlaPVd.ll 
VMlaVMl/PIM 
DO  2195  1*1, |M 

2195  PUll.ll— (PV(1,II-VM1)*3.0 

pvd.n-o.o 

00  2200  I *2 , |M 

2200  PV(1,| |aPV( 1 • 1-1 )*(PV( JH, | ) - VM? ) 

VM2-0.0 

00  220?  1-1,  IM 
220?  VM?-VH2*PV( 1 , 1 ) 

VM2-VM2/FIH 
DO  2205  l-i,  |m 

2205  PU(JM,||a(PV(l,l 1-VN2 1*3.0 
DO  2400  1-1,|M 
JMl-MOOl |4|MM2,|M|«1 
00  2400  Ja 1 , JH 

IP  IJ.PO.l  I  CONVHa-PVI 2, I  1*0,5 
IP  (J.FO.JM)  CONVMaPVlJM, |  1*0.5 

IP  IJ.GT.I  ,»N0.  J.LT.JM)  CONVM- - ( P 1 1 < J , 1 )  —Pill J , I M 1 ) 

•  ♦PVIJ*1,| )-PV(J,l 1  1*0.5 

IP  U.FO.ll  CONMl J, ll-CONVM 
IP  IL.P0.2)  PV« J, I l«CONVH 

?4oo  Conti  nop 

IPIL.F0.2)  r.O  TO  ?4|0 
L«2 

GO  TO  2150 
2410  CONTINUF 


00008490 

00008900 

00008910 

00008920 

00008930 

00008940 

00008950 

00008960 

00008970 

00008980 

00008990 

00009000 

00009010 

00009020 

00009030 

00009040 

00009050 

00009060 

00009070 

00009080 

00009090 

00009100 

00009110 

00009120 

00009 1  30 

00009140 

00009150 

00009160 

00009170 

000091  HO 

00009190 
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c 

00009200 

c 

CON*  IS  MASS  CONVERGENCE  AT  L-l  AND  PV  IS  THAT  AT  L-2. 

00009210 

c 

00009220 

2411 

PHI-0.0 

00009230 

PH2-0.0 

00009240 

PP 3-0.0 

00009250 

PB4-0.0 

00009260 

00  2'-02  1-1.  IM 

00009270 

PB1-PB1-C0NMI 1, 1 ) 

000092A0 

PB2-PB2-CONMI JM,  I 1 

00009290 

PB3-P83-PVI 1.1 1 

00009300 

2402 

PB4-PB4-PVIJM.il 

00009310 

PB1-PB1/FIM 

00009320 

PB2-PB2/F1M 

00009330 

PB3-PB3/F IM 

00009340 

PB4-PB4/F I M 

00009350 

1)0  2405  1-1.  IM 

00009360 

CONMI 1,11 -PHI 

00009370 

C0NM1JM, I I-PB2 

00009 3B0 

P V  41.1) -PB3 

00009390 

2405 

PVIJM.I I-PB4 

00009400 

00  2420  I-I.IM 

00009410 

00  2420  J-I.JM 

00009420 

MW -CONMI  J.II-PV1J.II 

00009430 

M0RK2IJ, I 1-3600. •MW/I2.0*OXYPIJI  I 

00009440 

2420 

CONTINUF 

00009450 

C 

00009460 

410 

2MM-0.0 

00009470 

MTM-0.0 

000094R0 

1)0  430  J-l.JM 

00009490 

SUM-0. 0 

00009500 

00  420  1-1, IM 

00009510 

420 

SUM-SUM-H0RK2IJ.il 

00009520 

CLAT-ABSIDXYPIJII 

00009530 

2  Ml J | -SUM/F IM 

00009540 

HTM-MTM-CLAT 

00009550 

4  30 

2MM-2MM-2MI JI-CLAT 

00009560 

l MM-I MM/HTM 

00009570 

NP0L-IM1JMI 

000095*0 

SP0L-2MI  11 

00009590 

C 

00009600 

OATA  NAMEL/ ’SIGMA  VERTICAL  VELOCITY  IMH/MRI 

•/  00009610 

DATA  NL/13/ 

00009620 

RETURN 

00009630 

C 

00009640 

C 

00009650 

END 

00009660 
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/• 


S  U  8  R  0  U  T  INF 
AVRXIK) 


//  00  DISPbOLO(OSN*MFS727. ABN. COMMON 
//  00  • 

C  THIS  SUBROUTINE  USES  UT 11 . I . 1 )  AS  A  WORKING  SPACE 


120 

130 

ISO 

c 


JMMlaJM-1 
| MM2* I H-2 
JE*JN/2*1 
OEFF«OVP( JE  I 
00  ISO  J*2 • JMM 1 
ORAT*OEFF/OXP(J) 

IF  (ORAT  ,LT.  1.)  GO  TO  ISO 
ALP*0.1?S*(0RAT-1.) 

NN«ORAT 

FNM«NM 

ALPHAaAL P/FNN 
00  ISO  N* 1 • NM 
00  120  |«1, |M 
IP1«M()0I  I  9  I M  |  4  1 
I  HI • MOO ( I  4 | HH2 * |M | 4 1 

DO  1 30  I  *  1  f  |M 
0TIJ,|,KI*UTII,|,1) 

CIINT  INUF 

RETURN 

END 


00009670 

0U0096S0 

00009690 

00009700 

00009710 

00009720 

00009730 

00009740 

000097S0 

00009760 

00009770 

00009700 

00009790 

00009000 

00009010 

00009020 

00009030 

00009040 

OOOO90SO 

00009060 

00009070 

00009000 

00009090 

00  109900 

00009910 

00009920 

00009930 

00009940 

000099SO 


r>  o  o 
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00009960 
00009970 
00009980 
00009990 
00010000 
00010010 
00010020 
00010030 
00010060 
00010050 
00010060 
00010070 
00010080 
00010090 
00010 100 
00010110 
00010120 
00010130 
00010160 
00010150 
00010160 
00010170 
00010180 
00010190 
00010200 
00010210 
00010220 
00010230 
00010260 
00010250 

0001026O 

00010270 
000 i 0280 
00010290 
00010300 
00010310 
00010320 
00010330 
00010360 
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C 

zmm-o.o 

WTM-0.0 
00  450  *1-1,  JM 
SUM-0.0 
on  430  1-1,  IM 
430  SUM-SUM  +  WORK  2 ( J  ,  I  I 
CLAT-ABSIOXYP(J) ( 

2  Ml JJ-SUM/F1M 
WTM-WTM+CLAT 
450  ZMM-ZMM+Z  M< J ) *CI  AT 
ZMM-ZMM/WT  M 
SPOL-ZM(l) 

NPOL-ZMI JM) 

C 

DATA  NAMEL/ 'RELATIVE  HUMIDITY  ( PERCENT ) 
DATA  ML/ 13/ 

RETURN 

END 


00010350 
00010360 
00010370 
00010380 
00010390 
00010400 
00010410 
00010420 
00010430 
00010440 
00010450 
00010460 
00010470 
00010480 
00010490 
•  /  00010500 
00010510 
00010520 
00010530 


n  n  r> 
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SUHRQOT  |  N  F 
*  MAPI? 

/* 

11  no  DlSP=nLD,OSN=MES727.A8N. COMMON 
//  OD  * 

LOGICAL  LEV,  STAG! , STAGJ ,  1SL 
COMMON  /C0UT2  2MI46), SURF, LEV, ISL,NAME(13) 
EQUIVALENCE  (SURE,S1GL) 

01  MENS  ION  NAMED  13  ) 

PRECIP1TA8LF  WATER  IN  CM,  MAP  TVPE  12 

FIM  *  |M 
STAGI*. FALSE. 

STAGJ*. FALSE. 

C 

DO  110  1*1, NL 
110  NAME  1 | 1 *NAMFL 1 1  1 
C 

DO  220  1*1,  IM 
00  220  J * 1 , JM 

^220  WORK 2 ( J  ,  I  I  *  Q31  J,  I 1*P(  J , | ) *o.5*( 10.0/GRAV 1 

410  WS=0.0 

WN*0.0 

DO  415  1*1,  |M 
WS*WS+W0RK2 ( 1 , I  1 
415  WN*WN+W0RK2 ( JM , I  I 
WS=WS/FIM 
WN-WN/FIM 
00  420  1*1, IM 
W0RK2(1,II=WS 
420  WORK  2 ( JM, I ) =WN 
C 

2 MM*0 • 0 
WTM-0.0 
DO  450  J  =  1  , JM 
SUM*0 .0 
DO  430  1*1, IM 
430  SUM* SUM  ♦  W0RK2 I J , I  I 
CLAT*AHS(DXVP(J) ) 

ZMIJ I =SUM/F IM 
WTM.WTM*CLAT 
450  2MM*2MM*2M( J>*CLAT 

2  MM. 2  MM/ WT  M 
SPOL  *2  M( 1 1 
NP0L*2M(JMI 
C 

DATA  NAMEL/'PRECIPITABLE  water  icmi 
OATA  NL /  1 3/ 

RETURN 

END 


00010540 
00010550 
00010560 
00010570 
000105R0 
00010590 
00010600 
00010610 
00010620 
00010630 
00010640 
00010650 
00010660 
00010670 
000106B0 
00010690 
00010700 
00010710 
00010720 
00010730 
00010740 
00010750 
00010760 
00010770 
000107R0 
00010790 
00010B00 
0001  OB  10 
00010H20 
00010830 
00010840 
00010850 
00010860 
00010870 
00010880 
00010890 
00010900 
00010910 
00010920 
00010930 
00010940 
00010950 
00010960 
00010970 
00010980 
00010990 
00011000 
00011010 
'/  00011020 
00011030 
00011040 
00011050 


o  o  u 
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/* 

// 

u 


MAPU 


o  II  T  I 


00  DlSoonLO*OSN=MES7;,7,ABN •C0MM0N 
LOGICAL  Lev.  STAGI.STAGJ,  |SL 

OIMENS ION  NAMEL ( 13) 


CONVECTIVE  PREC1P1TAT ion  (MM/OAY)  MAP  TYPE  13 

STAGIs. false. 

STAGJs. FALSE. 

FIM  =  1M 

C 

on  HO  IM.nl 
1 10  NAME! | | =NAMEL ( I ) 

on  250  1M.IM 
Of)  250  JM.JM 
CP= 1RHIUT I J , 1,2) ) 

250  W0RK2IJ.1 IrCP/lo. 

A 10  WSeO.O 
WNrO.O 

on  A1 5  I  =  1  ,  |M 

WS=WS+W0RK2 I  1.1) 

A15  WN=WN+wnRK2( JM, 1 ) 

WS=HS/F1M 

WN=WN/E1M 

00  *20  1 = 1  .  1 M 

WnRK2ll,l)=WS 

A20  W0RK2I JM, | )=wN 

C 


A  30 


A  50 


C 


ZMM«0.0 

WTM=0.0 

on  A50 

S0M=0.0 

Of)  A30  IM.1M 

SIIM«SUM  ♦  WORK 2  I  J  ,  |  ) 

CLAT=ARS(OXYP(J) ) 

ZMIJ)=SUM/F|M 

WTM=WTM*CLAT 

ZMM=ZMM+ZM( J)*CLAT 

ZMM=ZMM/WTM 

SPr)L  =  ZM(  1  ) 

NPHLMMI  JM) 


OATA  NAMEL/ 'CIINVECT  1  VE 
DATA  NL/13/ 

RETURN 

END 


precipitation 


IMM/DAY) 


00011060 
00011070 
0001 10R0 
00011090 
00011100 
00011110 
00011120 
00011130 
0001 1 1  AO 
00011150 
00011160 
0001 1170 
0001 1180 
0001 1190 
0001 1200 
0001 1210 
00011220 
00011230 
OOOH2AO 
0001 1250 
0001 1260 
00011270 
00011280 
00011290 
00011300 
00011310 
00011320 
00011330 
0001 13A0 
00011350 
00011360 
00011370 
00011380 
00011390 
0001 1A00 
0001 | A  10 
0001 IA20 
0001 1*30 
00011**0 
00011*50 
0001 1*60 
00011*70 
00011*80 
00011*90 
00011500 
00011510 
00011620 
0001 1530 
000116*0 
'/  00011660 
0001  1660 
00011670 
000) 1680 
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5  U  8  R  0  U  f  |N  c 

•  Wl»  - 

/*  - 

//  00  OISP.OLO,OSN.MfS727.AHN.COMM(iN 
II  00  • 

c 

LOGICAL  LEV.  STAGI . STAG J ,  |SL 
COMMON  /COUT/  7N ( *6 )  .SUKF.LEv.fSL  .NAME  II)) 
EOUIVALFNCE  I  SURF ,  S 1 GL  I 
DIMENSION  NAMEKI3) 

C  EVAPORATION  IE*  IN  NN/OAVI,  MAP  TYPE  |* 

STAGIa. FALSE. 

FIN.IM 

STAGja. FALSE. 

I MM| a | M- 1 

|MM2a|M-2 

JMM|aJM-| 

JNM2aJM-2 
OO  ||0  I  a  1 . NL 
110  NAMEII laNAMELIII 

00  250  I  a | .  |  m 
00  250  Jal.JM 
F*a|RM(TTU. |,2|| 

?50  WORK 2 ( J . | | ■ F A/ |0. 


*10  MS-0.0 

MNaO.O 

00  *15  I  a  I  .  I M 
MSaMS*M0RK2l  l.|  I 
*15  MNaMN*M0RK2< JM, I) 
KSaMS/F|M 
NN-MN/FIM 


00  *20  |al.|M 
M0RK2I1. l)aMS 
*20  M0RK2I JM,| |awN 


00011590 
00011600 
00011610 
00011620 
0001 1630 
000116*0 
00011650 
00011660 
00011670 
0001 1680 
00011690 
00011700 
00011710 
00011720 
00011730 
000117*0 
00011750 
00011760 
00011770 
00011780 
00011790 
0001 1800 
0001 1810 
00011820 
00011830 
000118*0 
00011850 
00011860 
00011870 
00011880 
00011890 
00011900 
000||910 
00011920 
00011930 
000119*0 
00011950 
00011960 
00011970 
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C 

2 MM. 0.0 
WTM-0.0 
00  450  J.l.JM 
SUM- 0.0 
00  430  l«l.IM 
430  Sum. sum  ♦  MORKZU.n 
CLAT.*BSIDXVP(J) I 
ZMfJl-SUM/FIM 

wtm.mtm*ciat 

450  2MM.IMM«2M|J)4CLAT 
2MM.2MM/MTM 
SFOL-ZMII) 

NPOl«ZM| JM) 

C 

OATA  MAMEL/' EVAPORATION  IMM/OAVI 
OAT*  NL/13/ 

RETURN 

ENO 


0001 19B0 
00011990 
00012000 
00012010 
00012020 
00012030 
00012040 
00012050 
00012060 
00012070 
00012000 
00012090 
00012100 
00012110 
00012120 
•/  00012130 
00012140 
00012150 
00012160 
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/• 

// 

// 


C 

C 

c 


i _ u  b  *  n  li  T  I  M  c 

MAPjj  “  - 


00 


oi SB.nio.osN-Mf s  n 7. a«n. common 
oo  • 


OIMENSION  NAMFL ( 13  J 
COMMON  /COUTZ  /M (46 1 .  SURF 

inr.iCAt  lev,  stagj,  siagi 


•LFV.ISL.NAMF 
•  ISL 


f  1 3 » 


SENSIBLE  MEAT  FLUX  (F4  IN  TENS  OF  CAL-CM.-2-0AV-  — 1) 


STAGI-. FALSE. 
st  agj« .false. 
fim«im 

I MM| a | M— | 

|MM2«|M-2 
JMM1.JM-1 
JMM2-JH-2 
00  HO  |«|  ,NL 
110  NAME ( I | -NAMFL ( I  I 


00  350  I >  t  .  IM 
00  350  J-l.JM 
F4-ILM(TTIJ,|,2)  | 
^3S0  M0RK2IJ.I I-F4/10. 

MO  WS-0.0 
WN«0,0 

on  415  l-I.IM 

MS-MS4NnKK2ll.il 
415  WN-NN.wnRK2(JM, | ) 
NS-NS/FIM 
MN«MN/F|M 
00  420  I  -  I . I M 
MORK  2( 1.1 I  -WS 
420  M0RK2(JM. | l-MN 
C 


2MM.0.0 
MTM.0.0 
00  450  J-| , JM 
SMM-O. 0 
on  430  l-I.IM 
530  SUM-SUM  ♦  W0RK2 ( J , I  I 
CLAT-AHS(03VP( J| I 
7M( J)«SUM/F|M 
WIM.WIM.CLAT 
450  7MM-2MM./M( J |*CLAT 

/ mm-2  mm/wTm 
SR0L-2MI | » 

NPnt-/M( JMI 

JJJJ;  MMI  *:i"*  ',0  C*L'CM**^OAV) 

RETURN 


MAP 


15 


END 


000121 70 
0001 2180 
00012190 
00012200 
00012210 
OOOI2220 
00012230 
00012240 
00012250 
00012260 
00012270 
OOOI22AO 
00012290 
00012300 
00012310 
00012320 
00012330 
00012340 
00012350 
00012360 
00012370 
OOOI23AO 
00012390 
00012400 
00012410 
00012420 
00012430 
00012440 
00012450 
00012460 
00012470 
OOOI24RO 
00012490 
00012500 
00012510 
00012520 
00012530 
00012540 
00012550 
00012560 
00012570 
OOOI25RO 
00012590 
00012600 
OOOI26IO 
00012420 
00012430 
00012440 
00012450 
00012440 
00012470 
'/  OOOI24RO 
000 | 2690 
00012700 
0001 27 1 0 
00012720 
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S  t«  h  «  n  n  t  i  n  f 

*  aig  li  - - 

//  00  0|SP*0L0,0SN*MES727. ABN. COMMON 
//  00  • 

LOGICAL  LEV,  STAG.!,  STAG  I ,  |SL 

COMMON  /COOT/  ZM(*G|,SURE,IEV«ISL«NAMEI|3) 

EOUI VALENCE  ISORE.SIGl) 

^  01  MENS  ION  NAMEU 13) 

C  LOW  LEVEL  CONVECTION  (OEG )  MAP  TYPE  I  ft 

E I M» | M 

STAGJ.. EALSE. 

ST AG| «.E ALSF. 

C 

00  1|0  I *1 ,NL 
110  NAME  I  I ) «NAMEl I  1  ) 

C 

00  220  1*1  ,  I M 
00  220  J * | , JM 
ELSC*ILH|UTIJ,|,2)) 

?20  WORK  2(J«| )*FL  SC / 1 0, 

C 

*10  7MM-0.0 

WTM.0.0 
00  A 30  J*  1  , JM 
SUM.0.0 
00  *20  1*1 , I M 
*20  SOM*S(|M«WORK2  I  J.  1  ) 

CLAT*ABSt OXVPI J ) ) 

7M( J|*SOM/E|M 
WTM=WTM*CLAT 
*30  7MM-2MM*2M( J )*CLAT 

2MM-2MM/WTM 
NP0L«2M|JM) 

SPOL.ZMI | ) 

C 

DATA  NAMEl/'inw  l>vEl  CONVECTION  (OEG  CENT) 
OATA  NL/13/ 

RETURN 

C 

END 


00012730 
000127*0 
00012750 
00012760 
00012770 
000127B0 
00012790 
00012R00 
000  12810 
00012820 
00012830 
000128*0 
00012850 
000 1 28ftO 
00012R70 
00012880 
00012890 
00012900 
00012910 
00012920 
00012930 
000129*0 
00012950 
00012960 
00012970 
00012980 
00012990 
00013000 
00013010 
00013020 
00013030 
000130*0 
00013050 
00013060 
00013070 
000130E0 
00013090 
00013100 
000131 10 
000|  .3120 
00013130 
000 131 *0 
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SUHROUTINF 

•  MAP  IV 

//  00  01 SP*0L0,0SN*MES727. ABN. COMMON 
//  00  • 

LOGICAL  LEV,  STAGJ,  STAGI,  ISL 

COMMON  /CnUT/  ZM(46), SURF, LEV, ISL.NAMFU3) 

EQUIVALENCE  ISURF.SIGL) 

DIMENSION  NAMELII3I 
C 

C  HIND  DIRECTION,  MAP  TYPE  17 

C  (NORMALLY  POLAR  PROJECTED! 

C 

PI02»P|*.3 

P102T3*PID2*3. 

PI T2«P I *2, 

RPI035-33./PIT2 

C 


101 

102 

103 

104 
220 


00  22 0  1*1,  I M 
00  220  J*1 , JM 
HU* WORK  11 J, I  ) 

WV*W0RK2 ( J , I ) 

K«1 

IF  IWU  .GE.  0.1  K*K4| 
IF  IWV.EQ.  0.1  GO  TO 
IF  (WV  .GE.  0.)  K*K*2 
IF  (WU  .EO.  0.1  K*K>4 
ANG*ATAN( WU/WV) 


103, 1041, K 


GO  TO  1220,101.102.102,101,101,102,102), 

ANG* ANG+P 1 T2 

GO  TO  220 

ANG*ANG*P I 

GO  TO  220 

ANG-P102 

GO  TO  220 

ANG-P102T3 

W0RK2 1  J  ,  1  )*ANG*R PI  033*1.0 


K 


0001 3 1  SO 

00013160 

00013170 

00013100 

00013190 

00013200 

00013210 

00013220 

00013230 

00013240 

00013230 

00013260 

00013270 

0001 3280 

00013290 

00013300 

00013310 

00013320 

00013330 

00013340 

00013330 

00013360 

00013370 

00013380 

00013390 

00013400 

00013410 

00013420 

00013430 

00013440 

00013430 

00013460 

00013470 

00013480 

00013490 

00013500 


541- 


C 

DO  MO  1-1, NL 
110  NAME  (  |  l  -NAMEL  (  |  ) 

STAGJb .true, 
stagi-.true. 
eim-im 
c 

410  2MM-0.0 

HTM-0.0 
on  430  J  ■  1  ,  JM 
SUM-0.0 
DO  420  1-1, 1M 
420  SUM-SUM*N0RK7<  J,  II 
CLAT-ABSlCOSlLATUn  I 

ZM| J) -SUM/E  1M 
MTM-MTMKLAT 
430  2MM-2MM*2M(J)#ClAT 
2MM-ZMM/MTM 
SR0L-2MH  ) 

NP01-2MI JM) 

C 

OATA  NAMFl/'WIND  DIRECTION 
OATA  NL/ 1 3/ 

RETURN 

C 

C 

END 


00013510 
00013520 
00013530 
00013540 
00013550 
00013560 
00013570 
0001 35RO 
00013590 
00013600 
00013610 
00013620 
00013630 
00013640 
00013650 
00013660 
00013670 
000 1 3680 
00013690 
00013700 
00013710 
'/  00013720 
00013730 
00013740 
00013750 
00013760 
00013770 


o  o 
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-i-  UflOOUT  I  N  E 

•  m*p  nr  -  — 

//  no  DISP«OLO,OSN.MES727. ABN. COMMON 
//  DO  • 

LOGICAL  LEV,  STAf.J,  STAGl,  ISL 
COMMON  /COUT/  2M(*6),SURFflEV,ISL.NAME(13| 
EQUIVALENCE  I  SURE , S I GL I 
0| MENS  I  ON  NAMEL 1 1 3 1 

MAP  WIND  0| SECT  ION,  MAP  TYPE  IS 
(MEANINGFUL  ON  CLVNOSICAL  PROJECTION  ONLY! 

P102«P|«.5 
PI02T3«P|02*3. 

P|T2«PI*2. 

P0T1II«IR./P| 


00  220  I  * 1 ,  1M 
00  220  J*1 , JM 
WU-WOSKH  J,|  l/OXUUI 
WV*M0RK2(J, | )/OYV( J) 

IF  (MU  ,EQ.  0.  .ANO.  MV  .EQ.  0.1  MV>|. 
ANG«ATAN2(MII,MVI 
IF  (ANG  .IT.  0.1  ANG"ANG*P|T2 
^_220  WORK  2  (  J  ,  I  I  a  A  MOD  (ANG«POT|B«lR.(36al 

00  110  I ■ 1 «Nl 
110  NAME ( I  I «NAMEL ( I  1 
E1M.IM 

stagjb. true. 

STAGl*. TRUE, 

c 

A 10  2MM.0.0 

MTM.0.0 
00  A 30  J* 1 , JM 
SUM.0.0 
00  A20  I ■ I ,  1M 
A20  SUM*SUM«M0RK2IJ,I 1 

CLAT*ABS(COS(LAT(  JM  I 
f  M(  JMSUM/FIM 

mtm*mtm*clat 

A 30  2MM*2MM«2M( J )*CLAT 

zmm*zmm/mtm 
SP0L*2M(1) 

NP0L*2M( JM) 

C 

OATA  NAMEL /'MAP  WINO  DIRECTION 
OATA  ML/13/ 

RETURN 

C 

C 

ENO 


000137B0 
00013790 
00013000 
0001 3R 10 
00013820 
00013830 
000138*0 
000 138 SO 
00013860 
00013870 
00013880 
00013890 
00013900 
00013910 
00013920 
00013930 
000139AO 
00013950 
00013960 
00013970 
00013980 
00013990 
OOOIAOOO 
0001*010 
0001*020 
0001*030 
0001*0*0 
0001*050 
0001*060 
0001*070 
0001*080 
0001*090 
0001*100 
0001*1 |0 
0001*120 
0001*130 
0001*1*0 
0001*150 
0001*160 
0001*170 
0001*180 
0001*190 
0001*200 
0001*210 
0001*220 
000j*230 
0001*2*0 
'/  0001*250 
0001*260 
0001*270 
0001*280 
0001*290 
0001*300 
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n 

u 


c 

c 

c 


i— V 


-0 — !J — I _ I  N  f 


-  •  lr  J1AP19 

00  01  SP-OLO,OSN-MES72  7. ABN. COMMON 
00  • 

Pnr!??i  /C,°“T/  *"«**». SURF, LFV,ISL.NAMEil3> 
LOGICAL  LEV,  STAGj,  ST  AG  I ,  ISL 
01MENSI0N  NAM  Ft (13) 

LOGICAL  LHLE 


LONG  HAVE  COOLING,  MAP  TYPE  IS 


FIM.IM 

stagj«. false. 
STAG1-. FALSE. 


LMLF.  SURF  .LT.  .5 
00  MO  I •  | , NL 
110  NAME ( | ) aNAMEL < ! ) 

00  | |B  J*1 , JM 

IIP  7M(J|.0.0 

C 


00  |50  1-1, |M 
00  150  J-| , JM 
IF  (LMLF)  GO  TO  125 
ACC- IRH(vT(j,|,2|) 
ACC -ACC /1 00. 

GO  TO  |40 

125  ACC-ILMIVTIJ,  |,2> > 
ACC-ACC/IOO. 

1*0  7M< J)-|M(J)«ACC 

^150  MONK  2 ( J , | ) -ACC 


2MM-0. 

MTM-0.0 

00  | 50  J-l  ,JM 

WTM-MTM  ♦  AHS ( OXYP ( J ) ; 

ZM(J)-2M(J)/F|M 

150  2MM-2  MM,£  M ( J)-AHS(OXYrMJ)  ) 

7MM-/MM/HTM 
SPOL-/MI | ) 

NP0L-7M(.|M) 

c 


c 


OATA  E[t,!'lnNr’  “*VF  MF4T,Nr’  in  layers 

RETURN 


(DEG  CENT /OAY ) 


ENO 


0001*310 
0001020 
0001*330 
0001*3*0 
0001*350 
0001*360 
0001*370 
0001*380 
0001*390 
0001 **C0 
0001**10 
0001**20 
0001**30 
0001**40 
0001*450 
00014460 
00014470 
000I44R0 
00014490 
00014500 
00014510 
00014520 
00014530 
0001*5*0 
00014550 
00014560 
00014570 
00014580 
00014590 
00014600 
00014610 
00014620 
00014630 
00014640 
00014650 
00014660 
00014670 
00014680 
00014690 
00014700 
00014710 
00014720 
00014730 
•  /  000147*0 
00014750 
0001*760 
00014770 
00014780 
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S  U  B  R  0  U  T  INK 

•  M£ZQ. 

//  00  OISP*OLD,OSN*MES7?7. ABN. COMMON 
//  00  • 

COMMON  /COUT/  2MI46), SURF, LEV, ISL.NAMEim 
C  ABSORB! I ON  OF  INSOLATION,  MAP  TYPE  20 

LOGICAL  LEV,  STAGj,  STAG  I,  ISL 
DIMENSION  NAMELim 
LOGICAL  LHLF 
C 

F  I M*  I M 

STAGJ*. FAL  SF, 

STAGU. FALSE. 

C 

LHLF*  SURF  .GT.  .S 
C 

00  110  C • 1 • NL 
110  NAME  I  I  I *NAMFL I  I  1 

C 

00  110  J • 1 , JM 
l IB  2M|J>*0. 

C 

on  iso  1*1 , im 

00  ISO  J*1 , JM 
IF  I LHLF I  GO  TO  125 
ACC* ILH| TT I J, I , 1 ) t 
ACC*ACC/100. 

GO  TO  140 

12S  ACC* I R HI TTIJ,I«1I) 

ACC-ACC/100. 

1*0  *M| J I */M I JI*ACC 

ISO  WORK? I J , I ) *ACC 
C 

ZMM.0.0 

WTM-0.0 

00  1SB  J-l.JM 

WTM-WTM  ♦  ABSI OXVPI J ) I 

2MI J|*|MI Jl/FIM 

1SB  2MM*2MM*ZM| J|*ABSIOXVP| Jl) 

2MM*2MM/WTM 
SP0L*2M| 1 » 

NP0L*2M( JMI 

C 

DATA  NAMEL/'ABSORPTION  OF  INFLATION  IN  LAVERS  I OEG  CENT/OAVI 
OATA  NL/13/ 

RETURN 

C 

ENO 


00014790 

00014800 

ooouaio 

00014820 
00014830 
00014840 
000148 SO 
00014860 
00014870 
00014880 
00014890 
00014900 
00014910 
00014920 
00014930 
00014940 
0G0149S0 
00014960 
00014970 
00014980 
00014990 
OOOISOOO 
0001S010 
0001 S020 
0001 5030 
0001 5040 
0001  SOSO 
0001 5060 
00015070 
000 15080 
00015090 
00015100 
00015110 
00015120 
00015130 
00015140 
00015150 
00015160 
00015170 
00015180 
00015190 
00015200 
00015210 
•/  00015220 
00015230 
00015240 
00015250 
00015260 


o  n  o  o  o 
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// 

// 


i — U — B _ 

•  MAP21 

00  01 SP*OLO,OSN*MES727. ABN. COMMON 
00  • 


tOf.lCAL  LEV,  STAGJ,  STAG  I .  ISl 
COMMON  /COOT/  2MI46I .SURE.LEV. I SL .NAME  I  1  3 ) 
EQUIVALENCE  (SURE.SIGtl 
DIMENSION  NAMEU 13) 


WIND  SPEED.  MAP  TVPf  21 


IMM2«|M-2 

JMMl.JM-1 


00  110  I ■ 1 . NL 
110  NAME!  I  l«NAMEU  I  I 

C 

STAGJ*. TRUE. 

STAG | ■ .TRUE . 

C 

00  330  1*1, |M 
00  330  J«2.JM 

W  I  NO*MORK 2  I  J .  I  I •*2*W0RK  1  (  J.  II  •*? 

330  WORK 2 1 J. I  I *SQN T I WlNO I 

C 

E  I M*  I  M 
2  MM*0 .0 
WTM.0.0 
00  430  J»2,JM 
SUM.0.0 
0(1  420  1*1,  IM 
420  SUM«SUM4M0RK2I J. I  I 

CLAT*ABS(C0S(.5*(LAT(J-1 I «L A T ( J  I  )  I  I 
2M| JI-SOM/EIM 
HTM*mTM«CL AT 
430  2MM*2MM*2M( J I «CL AT 

2MM*2MM/MTM 
SPOL*2MI2l 
NP0L*2M( JMI 
C 

OATA  NAMEL/ 'MAGN I TllOE  OE  THE  VECTOR  WIND  (M/SFCl 
DATA  Nl/ 13/ 

RETURN 

C 


00015270 
000152H0 
00015290 
00015300 
00015310 
00015320 
00015330 
00015340 
00015350 
00015360 
00015370 
0001 53B0 
00015390 
00015400 
00015410 
00015420 
00015430 
00015440 
00015450 
00015460 
00015470 
000 1 6480 
00015490 
00015500 
00015510 
00015520 
00015530 
00015540 
00015560 
00015560 
00015570 
000155H0 
00015590 
00015600 
00015610 
00015620 
00015630 
00015640 
00015650 
00016660 
00015670 
'/  000156R0 
00015690 
00015700 
00015710 
00015720 


END 


-346- 


// 

// 


c 

c 

c 


c 


i  »  h  a  n  ii 
*  -HA  P  2  2 

00  01 SP.OLO.DSN.MES727 
DO  * 


1  I  N  F 
AHN. COMMON 


01  MENS  ION  NAMED  131 


surface  insolation  map  type  22 

P I M» | M 

STAGJ.. FALSE. 

STAG  I ■•FALSE. 


00  110  I.l.NL 
^ 1 1 0  NAME  I  1  I .NAMED  1  I 


00  150  J-l.JM 
150  2HU).o.o 
C 


00  275  1>1,|M 
00  275  J-l.JM 

ACC»lLM(SOIJ,n  I 

ACC-ACC/lO. 

>ACC 

^275  W0RK2IJ.I l-ACC 


158 


C 


Z MM. 0.0 
WTM.0.0 
00  158  J«1,JM 
MTM.MTM  ♦  AHSIOXVP 
ZM(J).2M(J)/F|M 


I  Jl ) 


l MM. ZMM*Z Ml J ) .AHSIOXVP 

zmm-zmm/wtm 

SPOL-ZMI 1 | 

NPOL.ZMI JM| 


Jl  I 


DATA  NAMEL/*SURI  ACE 
OATA  NL/ 13/ 

RETURN 


INSOLATION  ABSORPTION  UOO  CAL/CM..2/0AY) 


00015730 
00015740 
00015750 
00015760 
00015770 
00015780 
00015790 
00015800 
00015810 
00015820 
00015830 
00015840 
00015850 
00015860 
00015870 
00015880 
00015890 
00015900 
00015910 
00015920 
00015930 
00015940 
00015950 
00015960 
00015970 
00015980 
00015990 
00016000 
00016010 
00016020 
00016030 
00016040 
00016050 
00016060 
00016070 
00016080 
00016090 
•/  00016100 
00016110 
00016120 
00016130 
00016140 


C 


ENO 


n  n 
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// 

U 


s _ U  B  R  0  (J  T  I  M  t 

*  BAP  23 -  - - - 

UU  01 SP=OLO,OSN=MES727. ABN. COMMON 
OD  * 

LOGICAL  LEV,  STAG.),  STAGI,  1SL 

FonirS*i  c£?cT/  ZM(46>  *SURF,LEV,1  SL  .NAME  t  13) 
EQUIVALENCE  (SURF.SIGL) 

DIMENSION  NAMEL (13) 

SURFACE  AIR  TEMPERATURE,  MAP  TYPE  23 


F 1 M*  I  M 

STAGJ*. FALSE. 

STAGI*. FALSE. 

C 

00  110  1=1, NL 
110  NAME (  I ) *NAMEL  (  I  ) 

C 

DO  220  1*1,  1M 
00  220  J  =  1  , JM 
TT4* 1 LHI03T ( J, 1 J | 

^220  W0RK2I J,  1  )=TT4/10.  -  TICE 

410  ZMM=0.0 

WT  M=0.0 
00  430  J  * 1 , JM 
SUM* 0.0 
DO  420  1  =  1,  1M 
420  SUM*SUM+W0RK2( J, 1 ) 

clat*absidxyp(j) i 
zmij)=sum/fim 
wtm*wtm+clat 
430  ZMM*ZMM+ZM( J)*CLAT 
ZMM.ZMM/WTM 
NPOL*ZM( JM) 

SPOL*ZM( 1 ) 

C 

DATA  T  ICE/273 . 1 / 

CaJa  N^fL3/,St’RFACe  A1R  TEMPERATURE  (DEG  CENT) 
C 

RETURN 

ENO 


00016150 

00016160 

00016170 

00016180 

00016*90 

00016200 

00016210 

00016220 

00016230 

00016240 

00016250 

00016260 

00016270 

00016280 

00016290 

00016300 

00016310 

00016320 

00016330 

00016340 

00016350 

00016360 

00016370 

00016380 

00016390 

00016400 

00016410 

00016420 

00016430 

00016440 

00016450 

00016460 

00016470 

00016480 

00016490 

00016500 

00016510 

00016520 

00016530 

00016540 

00016550 

00016560 


o  o  r> 
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SUBROUT  INF 
*  MAP24 

//  00  01  SP=(1L0,0SN*MES727. ABN. COMMON 
//  OD  * 

COMMON  /COOT/  ZMI46), SURF, LEV, ISL.NAMEI13) 
LOGICAL  LEV,  STAGJ,  STAG],  ISL 
0 1  MENS  I  ON  NAMELI 131 

GRODNO  TEMPERATURE  ( OEG  CENT IGR AOE )  MAP  TYPE  24 
F I M»  I  M 

STAGJ-. FALSE. 

STAGI*. FALSE. 

C 

00  110  I  *  1 « NL 
110  NAME ( I  I *NAMEL ( 1 ) 

C 

00  150  J *  1 , JM 
150  ZM( J ) =0.0 

C 

00  275  1  =  1,  IM 
00  275  J ■  1  , JM 
ACC  =  GTIJ.I)  -  TICE 
ZM( J|»ZM( Jl+ACC 
275  WORK  2 ( J , I ) ■ ACC* .0001 
C 

ZMM*0.0 

WTM=0.0 

DO  158  J= 1 , JM 

WTM*WTM  ♦  ABSIOXYPI J)  I 

ZM(JI=ZM(J)/FIM 

158  ZMM=ZMM*ZM( J)*ABS(OXYP( J) ) 

Z  MM*  Z  MM/ WTM 
SPOL»ZM( 1 ) 

NPOL*ZM( JM1 

C 

DATA  TICE  /273.1/ 

DATA  NAMEL/ 'GROUND  TEMPERATURE  ( OFG  CENT) 

DATA  NL/ 13/ 

C 

RETURiv 

ENO 


00016570 
00016580 
00016590 
00016600 
00016610 
00016620 
00016630 
00016640 
00016650 
00016660 
00016670 
00016680 
00016690 
00016700 
00016710 
00016720 
00016730 
00016740 
00016750 
00016760 
00016770 
00016780 
00016790 
00016800 
00016810 
00016820 
00016830 
00016840 
00016850 
00016860 
00016870 
00016880 
00016890 
00016900 
00016910 
00016920 
00016930 
•/  00016940 
00016950 
00016960 
00016970 
00016980 


non 
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// 

// 


MAP2S 

00  OISP«OLO,DSN«MES727. 
DO  * 


u  T  I  M 
ABN. COMMON 


E 


COMMON  /COUT/  ZM<  46 1 . SURF . L 
LOGICAL  LEV.  STAGJ,  STAGI, 
D!  MENS  I  ON  NAMELU3I 


E V. I SL .NAME 
I  SC 


I  13) 


WETNES,  MAP  TYPE  25 


E I  Me  I M 
IMM2.IM-2 
JMM1 « JM-1 
STAGJe, FALSE. 
STAGI«. FALSE. 

C 

DO  HO  lel.NL 
c  *  40  NAME ( 1 1 «NAMEL (  I  ) 

ZMM*0.0 
DO  lift  J *  1 . JM 
US  ZM(J)«0.0 

DO  128  I«1,|M 
DO  128  J« 1 . JM 
ACC»GW  (  J  .  |  )  *  10. 
ZMI J|elM(J|+ACC 
^128  WORK  2 ( J . I ) «ACC 


158 


DO  158  J« 1  . JM 
WTMmWTM  ♦  ARS ( DXYP( J )  | 
ZM(J)«2M{J)/F1M 
ZMM-ZMM*2M( JI*ARS(DXYP(. 
ZMM.2MM/WTM 
SPOL«ZM( 1  | 

NPOL«ZM(JM) 

DATA  NAMEL/ 'GROUND  WFTNE 
OATA  NL/ 13/ 


RETURN 


•  SCALED  ZERO  TO  TEN) 


00016990 
00017000 
00017010 
00017020 
00017030 
00017040 
00017050 
00017060 
00017070 
00017080 
00017090 
00017100 
00017110 
00017120 
00017130 
00017140 
00017150 
00017160 
00017170 
00017180 
00017190 
00017200 
00017210 
00017220 
00017230 
00017240 
00017250 
00017260 
00017270 
00017280 
00017290 
00017300 
00017310 
00017320 
00017330 
00017340 
00017350 
V  00017360 
00017370 
00017380 
00017390 
00017400 
00017410 


END 


o  o 


S  II  B  H  0  li  T  INF 

*  MAP26 

//  OD  0!SP«nLD,DSN«MFS727. ABN. COMMON 
//  00  * 

COMMON  /COOT/  ZM|*6»,  SURF,  LEV,  tSL.MAMFIll) 

LOGICAL  LEV,  STAGJ,  ST  AG  1 ,  1SL 

COMMON  /EXCOM/CCI*6,72,* ) ,CPC1 ( Aft ,72  I ,  CPC  31*6.72) , 

*  PRCLEMS6.72  I  »  SR  *  I *3 .  72) 

DIMENSION  NAME  1 1131 , NAME 2 1  1 3  I ,NAMF 3  I  1 3  I 


F I M» I M 

STAG J* . F AL  S  F . 

STAGI «. FALSE  , 

C 

K*1 

IF  I  SURF ,GT .0.3 1  K  =  2 
IF  (SURF. EO. 1.0)  K«3 
IF  (SURF. GT. 1.0)  K=* 

DO  HO  l«l,NL 
NAME) I l-NAMEl I  I ) 

:F  (K.F0.2)  NAME  I  I ) *NAMF2I I  ) 
IF  (K.FQ.*I  NAME  I  I  )»NAMF*(  1) 
110  IF  (K.F0.3I  NAME  I  I  )  =NAME3 I  I  ) 

C 

00  130  J*1,JM 
ISO  2  M ( J ) >0,0 
C 

00  27S  I  »  1  ,  1M 
00  273  J *  1  ,  JM 
ACC-CCI J.I ,K ) 

IF  (ACC. LT. 0.0)  ACC’0.0 
2M(J )>2M|J )  +  ACC 
273  M0RK2IJ,! |«ACC 
C 

2  MMaO.O 

HTM*0.0 

00  ISA  J«l  , JM 

WTM=WTM  ♦  AHSIOXYPI J) ) 

7M(J)*ZM(J)/FIM 

ISA  7MM»2MM  +  2MI  J  )*AP3nXYP|  J  )  ) 

2  MM»  2  MM/ WTM 
SP0L*2M| 1 ) 

NP0L«2M| JM) 

C 

DATA  NAME  1  /  *M I Gt'  CLOUDINFSS 
OATA  NAME2/ 'MIDDLE  CLOUDINESS 
DATA  NAMF3/ ’LOW  CLOUDINFSS 
DATA  NAMES/ 'CLOOOINFSS 
DATA  NL/13/ 

RETURN 

C 

FND 


0001 7*20 
00017*30 
00017**0 
00017*30 
00017*30 
00017*70 
00017*00 
00017*90 
00017300 
00017310 
00017320 
00017330 
000173*0 
00017330 
00017330 
00017370 
00017380 
00017390 
00017393 
00017300 
00017310 
00017620 
00017323 
00017330 
000176*0 
00017330 
00017330 
00017370 
000 17380 
00017390 
00017700 
00017703 
00017710 
00017720 
00017730 
000177*0 
00017730 
00017730 
00012770 
00017780 
00017790 
00017800 
0001 7810 
00017820 
00017830 
*/  000178*0 
•/  00017830 
'/  00017830 
'/  00017833 
00017870 
00017880 
00017890 
00017900 
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S  1)  H  R  n  II  1  INF 

00017910 

•  map7T~ 

0001 79?0 

//  no 

0lSP*nin,0SN«MES7?7.AHN.cnMPnN 

0001 7930 

// 

no  • 

000179*0 

COMMON  /COOT/  2M 1  Aft )  ,  SURF  •  LF  V  .  I  SL .NAME  (  13) 

000 1 7950 

LOGICAL  LEV,  STAGJ,  STAGI.  |  SL 

000179ft0 

FCi|)|  VALENCE  ISIGL.SURF) 

00017970 

0| MENS  I ON  NAME  L 1 1 3  I 

0001 79ft0 

c 

00017990 

F  | M«  1  M 

OOOIBOOO 

c 

0001B010 

STAGJ.. FALSE. 

0001B0?0 

STAGI«. FALSE. 

0001B030 

c 

OOOlftOAO 

00  1 10  l«l,NL 

00C1B050 

no 

NAME! 1 1«NANFL<  1  I 

OOOlROAO 

c 

0001R070 

00  ??0  J«1,JM 

OOOlftOPO 

no  220  i*i . i m 

OOOIR090 

??o 

WORK?  1  ,l.|  )«RTROP*SMRF*PI.»,  n 

OOOlfllOO 

c 

0001B1 10 

00  lift  J«1,JM 

0001  ft  120 

1 1* 

7M( j )«o.n 

000 1  ft  1 30 

c 

0001  ft  1*0 

I  MM* 0.0 

OOOlftl so 

WTM*0.0 

OOOIBlftO 

00  <.30  J*1,JM 

0001H1 70 

SOM.O.O 

0001  BIRO 

CLAT»AHS(nxvft(  j)  | 

0001  ft  190 

on  *?o  I  *  i .  i  m 

000 1 R?00 

*?0 

SllM«  SUM*  WORK  ? ( J , | J 

0001 R? 10 

7M( JJ.SUM/FIM 

0001 H??0 

WTM«WTM*CLAT 

000 1  ft?  30 

<.30 

2MM>2MM*2m(j I • CL AT 

000lft?*0 

7MM«2MM/WTM 

000 1 R?  SO 

SP0L«2M( 1 ) 

0001  B?ftO 

NPOl*/M( JM) 

000 1  ft?  70 

C 

0001 R?R0 

OATA  NAMFL/ •PRESSURE  AT  SIGMA  SOHFACE 

•/  000 1 H?90 

OATA  NL/13/ 

000 1ft 300 

RETURN 

000 1  ft 3 1 0 

c 

ooo i ft  3?n 

FNO 

0001  ft  330 

-552 


S  II  H  R  n  II  I  1  N  E 

•  mapTp  — - — 

//  00  01  SP*nLD,0SN*MES727.  AHN.COMMttN 

//  00  • 

COMMON  /COIlT/  2M(46l,SURE,LEV,lSLaNAME(]3) 

LOGICAL  LEV#  STAGJ,  STAG  I,  !SL 
EQUIVALENCE  I  &  1 GL • SURE  I 

COMMON  /EXCOM/CCI  46,  7? #  4  !  ,CPC  1  1 46#  7 2  !  #C*>C3I46,  7?  ) , 

•  PRCLH(46#7?),SR4(46./2) 

dimension  nameli m 

c 

E I M«1 M 

C 

STAGJ».EALSF. 

STAG  1 *. E AL SE  . 

L  1  *  1 

L2*2 

S1GL1«SIG(L1 I 
$IGL2*S1GIL21 
0S1G«1..MSIGL?-SIGU  I 
SOREMT«SORE-MTROM 
IE  ILEVI  SIGX.SIGL 
C 

00  110  |«1,NL 
110  NAME  1 1  I «NAMEL I  I  I 

C 

00  220  1*1,  I M 
00  220  J • I , JM 

IF  (.NOT. LEVI  S  IGX*S1IM  EMT/P  I  J,  I | 

H1*CPCI «J, I  I 
H3*CPC3( J,l  I 

^220  HMRK2I  J#  I  I  *DS  IG*l  I  S  IGL2-S  IGX  )  *H)  ♦  I  S I GX-S I  Gl.  J  |*M3  ) 

DO  HR  J  *  1  ,  ,|M 
ll«  2  M ( J ) *0,0 

c 

7MM.0.0 
WTM.0.0 
00  430  J*1 , JM 
SOM. 0.0 

CL AT  *AHS I  OX VP ( J  1  ) 

00  420  1*1, IM 
4?0  SOM«SDM*W0RK2( J, I  I 
7M( J)*SUM/E!M 
WTM*WTM*CLAT 
430  7MM»2MM»ZM( J)*CLAT 
7 MM*Z  MM/wTM 
SV0L*2M( 1 ) 

NPOL  *2  M(  JM | 

r. 

DATA  NAMEL/*TOTAL  CONVECTIVE  HEATING  10FG  CENT/OAY I 
DATA  NL/13/ 

RETURN 


0001R340 
000 1*350 
00018360 
00018370 
00018380 
00018390 
00018400 
000184)0 
00018420 
00018430 
00018440 
00018450 
(too  Jp  460 
OC  018470 
00018480 
00018490 
00018500 
00018510 
00018520 
00018530 
00018540 
00018550  • 

00018560 
00018570 
00018580 
00018590 
00018600 
00018610 
00018620 
00018630 
00018640 
00018650 
00018660 
00018670 
00018680 
00019690 
00018700 
00018710 
00018720 
00018730 
00018740 
00018750 
00018760 
00018770 
00018780 
00018790 
00018800 
00018810 
00018820 
00018830 
00018840 
00018850 
00018860 
00018870 
00018880 


END 
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// 

// 


C 

c 


_s^  *>  H  R  0  II  T  INF 

•  MAP29  ~  - - - - - 

00  01 SPbOLO.OSNbME  S72  7. AHN.COMMON 

00  * 

COMMON  /COOT/  2H(46|, SlIRF, LEV, |SL,NAMFI13I 
LOGICAL  LEV,  STAG J ,  STAGI,  1SL 
FOIlIVAlfNCF  (SIGL.SURFI 

common  /FXCnM/CCI46.72.4|.CPCll46.7?l.CPC3(46.72l, 

*  ,  P*CLH(46,72>,S»4<46,771 

CiMENSlON  NAMELI13I 


F|M«|M 


s t  agj  «. false . 

STAG  I b. F AL  SF . 

LIbI 

L2«? 

SIGLIbSIGILI I 
SIGL?«SIGIL?) 
CSlG«l./ISIGL7-Sir,Ll) 
SIHSFMTbSORF-PTROP 
IF  ILFVt  SIGXbSIGL 


HO 


r. 


on  no  ibj.nl 

NAME ( I ) bNAMFL ( 1 ) 


00  220  |«1,)M 
00  220  JBJ..IM 

IF  I.NOT.LFVI  SlGX»SnKFMT/P(J.I ) 

HI. 0.0 

H3.PRCLHJ J,  |  ) 

f?2°  Hf)RK2  (Jtl  I  «0S  I G*  (  1 S IGL2-S IGX  I  *M1  ♦  I S1GX-S I GL  II  *H31 

00  11 8  JbJ.JM, 

11"  2M»J1«0.0 

C 

2MM.0.0 
WTM.0.0 
00  430  JbI.jm 
SOM.O.O 

CLAT.AhSinXYfM  J1 I 
00  420  I .  1  «  I M 
420  S0MbSUM*W0RK2( J, 11 
2  M(  >1)  bSTIM/F  I M 
WTMbmTMbCLAT 
430  2MMe2MM*2M(,|  1*CLAT 

2MM.2MM/WTM 
SP0L.2MI | 1 
NP0L«2M( JM» 

C 

JJJJJ  nJ/13/'UTFNT  HMT,Nr’  ,N  LAVFR  ",K-  r.FNT/OAY) 

" F  TURN 

C. 


0001  8890 
000 1 8900 
00018910 
00018920 
00018930 
00018940 
00018950 
00018960 
00018970 
00018980 
00018990 
00019000 
00019010 
00019020 
00019030 
00019040 
00019050 
0OO1 9060 
00019070 
00019080 
00019090 
000 19100 
000191 10 
00019120 
00019130 
00019140 
00019150 
000  S  9 1 60 
00019170 
00019180 
00019190 
00019200 
00019210 
00019220 
00019230 
00019240 
00019250 
00019260 
00019270 
00019280 
00019290 
00019300 
00019310 
00019320 
COOl 9330 
000 19340 
00019350 
00019360 
00019370 
00019380 
'/  00019390 
00019400 
00019410 
00019470 
00019430 


ENO 
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0  U 


n 

n 


•  map3o  . 

00  01  SP*f)LO,  DSN. ME  S  72  7.  AHN. COMMON 


1)0  * 

COMMON  /cnuT/  ZM ( 46 )  ,  SUR f « LEV,  I  SI.  .NAME  ( 1 3 1 
LOGICAL  LEV,  STAGJ,  STAG  I,  |  SL 
COMMON  /EXCOM/CC<46,72,4),CPCH46,7?>,CPC3l46,72> 
*  PRCLH<46,72» ,SR4(46,72I 

DIMENSION  NAMELI 131 


c 
c 

E  |  Ms  |  M 

STAGJ*. FALSE. 

STAGJ. .FALSE, 

C 

00  110  1*1, NL 
110  NAME! 1 |«NAMEL(  I  1 

C 

DO  ISO  J.'.JM 
ISO  ZM1JI.0.0 
C 

DO  275  I  *  1  , I M 
DO  27S  J*1,JM 
ACC* ,01 *SR4  ( J ,  1  | 

ZM(J)«ZM( JJ+ACC 
27S  WORK 2  I J , I  I  * ACC 
C 

ZMM.0.0 

WTM.0.0 

DO  158  J  *  1 , JM 

WTM=WTM  ♦  AHSIOXVP(J) 1 

ZM( JJ.ZM1 JJ/E | M 

ISfl  ZMM«ZMM>ZM(  JI.AHSIOXVPI  JM 

/ MM*  Z  MM/ WTM 
SPOL*ZM( 1 | 

NPOL  *  Z  M ( JM | 

C 

OAT  A  NAMEL/' SURFACE  LONG-WAVE  COOLING 
DATA  NL/13/ 

RETURN 

C 

FNO 


00019440 
00019450 
00019460 
00019470 
00019480 
00019490 
00019500 
00019510 
00019520 
00019530 
00019540 
00019550 
00019560 
00019570 
000 1 95 AO 
00019590 
00019600 
00019610 
00019620 
00019630 
00019640 
00019650 
00019660 
00019670 
00019680 
00019690 
00019700 
00019710 
00019720 
0OO19730 
00019740 
00019750 
00019760 
00019770 
000 19780 
00019790 
00019800 

non  CAL/CM**2/04V»  •/  00019810 

00019820 

00019830 

00019840 

00019850 


O  o  o 
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5  II  H  «  0  II  T  1  N  E 

•  ~-STPlT  - 

//  no  nisp*nL(i,osN*Mes7?7,.*BN.CfiMMOM 
//  nn  * 

COMMON  /COOT/  7MI46) , SURF tLF Vt I SLtNAME I  I  3 ) 

LOGICAL  Lfv,  STAGJ,  ST  AG  1  •  ISL 

COMMON  /FXCOM/CU46.72.4)  , CPC  1  1 46 , 72 > , C PC  3 1 46 , 72  > , 

♦  PRCLH<46,72) ,SR4(46,72) 

OlMENSin-J  NAMFL  (  m 

C 

C 

F I M* 1 M 

STAGJ*. FALSE. 

STAGI*. FALSE. 


CALI  MAP  2? 

DO  275  I  *  1 «  1 M 
no  275  J*1 , JM 
275  WORK  1  I  J .  I  ) *WORK2 1 Jt  |  | 

CALL  MAP  30 
on  280  I *1 ,  1M 
no  280  J«1,JM 

2H0  W0RK1  I J. 1 ) *wnPKl I Jt 1 1-W0RK2 ( J.  1  ) 

CALL  MAP  15 
0(1  28  5  |«1,|M 
no  285  J*1  , ,|M 

?«5  IJ0RK1  (  J,  1  '  =  W0RK  1  (  J,  1  1-0.  1  *W0RK2( J.  1  ) 

CALL  MAP  It 
On  ?90  1*1  ,1M 
00  290  J* 1  *  JM 

29f)  W0RK2I  Jt  I  )  *WPR  K  1  (  J.  (  )-0.880*W(IRK2(Jtl  I 
00  150  J  *  1 t  JM 
150  7 M( J) *0.0 

no  300  1*1 ,  im 
no  300  j  * 1 1  jm 
300  ZM|J)*2M(J) ♦WORK 2  I J  t I ) 

c 

7  MM*().0 

WTM*0.0 

no  i5H  j  * i .  jm 

WTMtWTM  ♦  AHSIOXYPIJI) 

7M|J)*?M|  J)/F|M 

15H  7 MM*/MM*7  Ml J  )  *AKSI OXVPI J ) ) 

7  MM*  7  MM/WTM 
SP0L=7M( 1 ) 

NM0L*7M( JM) 
no  HO  ( *  1  . N( 

1  in  NAME  I  1  )=NAMEL I  I  ) 

C 

DATA  NAMEL / • SOR FACE  HEAT  BALANCE  (100  CA| /CM**2/0AY I 
OATA  NL / l 3/ 

RE  TORN 
C 

END 


00019860 
00019870 
00019880 
00019890 
00019900 
00019910 
00019920 
00019930 
00019940 
00019950 
00019960 
00019970 
00019980 
00019990 
00020000 
00020010 
00020020 
00020030 
00020040 
00020050 
00020060 
00020070 
00020080 
00020090 
00020100 
00020110 
00020120 
00020130 
00020140 
00020150 
00020160 
00020170 
00020180 
00020190 
00020200 
00020210 
00020220 
00020230 
00020240 
00020250 
00020260 
00020270 
00020280 
00020290 
00020300 
00020310 
00020320 
00020330 
00020340 
00020350 
00020360 
•/  00020370 
00020380 
00020390 
00020400 
00020410 


O  o  o 


* 

/* 


s  u  h  r  n  it 

CDMP3 


N 


F 


//  00  0ISP*0L0,0SN*MES727.A8N. COMMON 
//  00  * 

EQUIVALENCE  (KKK.XXXI 

LOGICAL  ICE,  LAND,  OCEAN,  SNOW,  KEY 

COMMON  /EXCOM/CC  146,72,4) ,CPC1 (46,72  I , CPC 3 (46, 72 ) , 

.  *  PRCLHI 46,72) ,SR4(46, 72 ) 


TRANS  I  X ) ■ 1 . / | 1.+1.75*X**.416) 
TRSMI X)*l ,-.271*X**.303 


JMMI.jm-1 
IMM2MM-2 
JMM2*JM-2 
I H*  I  M/2  ♦  1 
E  I  M*  1  M 
SIf,l«SIG(  1  ) 
SIG3*SIG(2  ) 
0SIG-SIG3-S  If.l 


GWM*  30, 

OTC3«ELOAT(NC3)*OT 

RCNV*DTC  3/TCNV 

CLH-580./.24 

P10K»1000.**KAPA 

CTI-.005 

CT10»8.64E4*CTI 

H1CE-300. 

T  ICE=273. 1 

PM.PSL-MTROP 

COE »GR A V* 100. /I  0.5* PM* 1000. *0.24) 

C0El«C0F*0TC3/( 24. *3600. I 
SCALED  »f.0E*100« 

TSP0»0AY/0TC3 

SCALEP*TSP0*.5*(  10. /GR AV ) *  1 00. 

CONRAD* 180 . /P I 

CNRX»C0NRA0*.01 

ESDEDY.SDEOY 

SNOWN* (60.-15. *COS ( .9863* ( E  S0F0Y-2  4.668  ) /CONRAD) ) /CONRAD 
SNOWS  *—60 . /CONR  AO 


SURFACE  WIND  MAC.N1TII0E 

00  10  1*1  ,  IM 
00  10  J*2,JM 

US*2.*(SIC,3*U(  J,  l,  21 -SIC,  1*0 1  J,t  ,1  )  )*0.7 
VS*2.*(Sir,3*V(J,I,2)-SIf,l*V(  J,1 ,1  )  1*0.7 
10  EDI j , 1 ) *US*US  ♦  VS*VS 

WMAG1 *SQR  T l.5*(ED(2,l)*FDI2,IH||) 
WMAGJM=SQRT I .5* I EOI JM, l ) +ED( JM , |H) ) ) 


00020420 

00020430 

00020440 

00020450 

00020460 

00020470 

00020480 

00020490 

00020500 

00020510 

00020520 

00020530 

00020540 

00020550 

00020560 

00020570 

00020580 

00020590 

00020600 

00020610 

00020620 

00020630 

00020640 

00020650 

00020660 

00020670 

00020680 

00020690 

00020700 

00020710 

00020720 

00020730 

00020740 

00020750 

00020760 

00020770 

00020780 

00020790 

00020800 

00020810 

00020820 

00020830 

00020840 

00020850 

00020860 

00020870 

00020880 

00020890 

00020900 

00020910 

00020920 

00020930 

00020940 
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C 

C  RADIATION  CONSTANTS 
C 

S0*2«R0./RS0IST 

ALC1-.7 

ALC2-.6 

ALC3-.6 

STflO  =  l .  1 7 1 F-7 

FFVC1-65.3 

FFVC2-65.3 

FF VC3*7 . 6 

CPART*.5*1.3071F7 

ROT  •  T0FDAV/R0TPFR*2.0*P | 

C 

C  HEATING  LOOP 

C 

DO  370  |*1  ,  |M 
I  Ml *M00( I ♦ I  MM?  « | M ) + 1 
I P 1  *  MOO ( I  *  I M ) ♦! 

F|M1*|— 1 

HACOS=COSO*COS(ROT+F |M|*DLON) 

DO  360  J*1 , JM 

COS?  *S  INI  I J  )*SINI)+COSL  I J  I  *HACns 
C 

C  SURFACE  CONDITION 

C 

TGOO*TOPOG( J,  I ) 

OCFAN«TGOO.GT. 1. 

I CF  =  TGOO.L  F • -9. 9F5 
LANOs.NOT. { ICF.OR.OCFAN) 

SNOW *L AND. A NO. ( L AT  I J  )  .GF . SNOWN .OR  . I  AT ( J ) .LF . SNOWS ) 
LANO=LANO.ANO. .NOT. SNOW 
IF  l.NOT.OCFAN)  ?2?*VPH|4(J.| l/GRAV 
C  ORAG  COFFFICIFNT 

IF  (j  , FO.  1)  WM AG*WM AG  1 
IF  (J  .FO.  JM |  WMAG*WMAGJM 

IF  I J.NF. 1 .AND. J.NF. JM)  WMAG*SOR T ( . 25 * ( F 0 1 J , | ) ♦FO ( J* 1 ,  |) 
X  ♦FOI  J,  IMD+FOI  J+|  ,  1 M 1  ))) 

CD  *  .002 

IF  l.NOT.OCFAN)  CO=C 0+0. 006*2  2  2/  5000. 

IF  ( OCFAN)  CO  =  AMIN1I I  1 ,0*.07*WMftG )*.001, .0025) 

CS  *  C0*100. 

CS4  *  ,24*CS*24.*3600. 

FK1  *  CO*l 10.*GRAV)/(0SIG*PM) 


00020950 
00020960 
00020970 
000209B0 
00020990 
00021000 
00021010 
00021020 
00021030 
00021040 
00021050 
00021060 
00021070 
0002 10R0 
00021090 
00021100 
00021110 
00021120 
00021130 
0002 1 140 
00021150 
00021160 
00021170 
00021 IRO 
00021190 
00021200 
00021210 
00021220 
00021230 
00021240 
00021250 
00021260 
00021270 
O0O2I2RO 
00021290 
00021300 
00021310 
00021320 
00021330 
000,'  1340 
00021350 
00021360 
00021370 
0002 13R0 


non 
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PRFSStJRFS 

SP*P( J,|  I 
CflL  MR  =  PM/ SP 
P4*SP*PTRnP 
P4K=P4««KAPA 
PLl*S|f>l*SP*PTPDP 
PL2*,5*SP4PTR()7 
PL3»S  IG3*SP*PTRr)P 
PL  1 K*PL 1  **K£.PA 
PL3K  *PL  3**KAPA 
PL2K*PL2**KAPA 
PTRK*PTROP*«KAPA 
OPLK  =  PL3K-PL  IK 

TFMPFRATIJRES  ANO  TFST  FUR  OR  Y- AO  I  AH  A  T  I  f.  IMSTAHILITV 

T  1  *  T  (  J  »  1  ,  ,1  ) 

T3*T( J,I,2 
TML1»T1/PL1K 
THL3=T3/PL3K 

IF  (THL1  .GT.  THL3)  GO  TO  310 
XX1*(T1*T3)/(PL1K>PL3K) 

T1»XX1*PL1K 
T3*XX1*PL3K 
Thl1*T1/PL1K 
THL3*T3/PL3K 
C 

C  MO | S  TOR  F  VARIABLES 

C 

310  F si *10.0** I R. 405 1-2 3 53  ,0/T  1 ) 

FS3*10.0**(H. 4051-2353, 0/T3) 

P1CB=.1*PL1 
P3CB=>.  1*PL3 
P4CB  * , 1 *P4 

0S1*.622*ES1/IP1CB-FS1) 

OS3*.622*FS3/l P3CB-FS3  1 

f»AMl*C|_H*QSI*541H./Tl**2 

GAM3*CLH*0S3*541R./T3**2 

Q3R  =0  3 ( J , I ) 

RH3=03R/0S3 

C 

C  TFMPFRATORF  FXTRAPOLAT KIN  ANO  interpolation  for  raoiation 

A  T FM=  (  THL3-THL1  1  /OP(_K 
BTFM=(THL1*PL3K-THL3#PL1K)/0PLK 
TTROPU ATFM*PTRK+BTFM)*PTRK 
T2= ( ATFM*PL?K+BTFM) *PL2K 


00021340 
00021400 
00021410 
00021420 
0002 1 430 
00021440 
00021450 
00021440 
00021470 
0002 1 4R0 
00021440 
00021500 
00021510 
00021520 
00021530 
00021540 
00021550 
00021560 
00021570 
000215R0 
00021540 
00021600 
00021610 
00021620 
00021630 
00021640 
00021650 
00021660 
00021670 
000216R0 
00021640 
00021700 
00021710 
00021720 
00021730 
00021740 
00021750 
00021760 
00021770 
000217R0 
00021740 
0002 1 800 
0002 1 R I  0 
0002IR20 
0002  I R30 
0002 1 840 
0002  I R  50 
00021R60 
0002 1 H  70 
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C 

C  GROUND  TEMPERATURE  AND  WETNESS 

TG-TGOO 

WFT=1 .0 

IF  (  •  NO  T  .Of.  FAN)  T6=«T(J,1) 

IF  (LAND)  WFTsGW(J,l> 

F  LARGE  SCALF  PRECIPITATION 


0002 1RR0 
000? 1 R90 
000? 1 900 
000? 1 910 
00021920 
0002 1 930 
00021990 
00021950 
00021  950 
00021970 
0002 19R0 
00021990 
00022000 
00022010 
00022020 
00022030 
000??090 
00022050 
00022050 
00022070 
000220R0 
00022090 
00022100 
00O221 10 
00022120 
00022130 
00022190 
00022150 
00022150 
00022170 
000?? 1H0 
00022190 
00022200 
00022210 
000????0 
00022230 
00022290 
00022250 
000???G0 
00022270 
000???ro 
00022290 
00022300 
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C 

C  OETFRMI NAT  I  ON  DE  St/REACE  TEMPERATURE 

C 

C 

1070  RH4*2.*WET*RH3/(WET-fRH3  ) 
EG»10.**(8.4051-2353./TG) 

EG*  AM1N1 (EG.P4CB/1.662) 

0G»,622*EG/( P4CB-FG ) 

00G*541 8 , *0G/TG**2 

HHG«TG+CLH*OG*HET 

E0R*EDV/(EDV+0RAW) 

HH4=E0R*HH3+( l.-EOR )*HHG 
GAMG*CLH*OQG 

T4*(HH4-RH4*( CLH*QG-GAMG*  TO ) )/( l.+RH4*f,AMf, ) 
IF  (T4*P10K/P4K.r-T.TFTA3)  T4  =  TF  TA  3*P4K/P  1  OK 
04 =R  H4* ( OG  +  OOG* ( T4-TG ) ) 

HH4*T4+CLH*04 

C 

C  PENETRATING  AND  LOW-LEVEL  CONVECTION 
C 

PC1*0. 

PC3*0. 

EX*0. 

IF  (HH4  .IE.  HH3S )  GO  TO  1077 
IF  (HH3  ,GT.  HH1S)  GO  TO  1077 
EX  *  HH4-HH3S 
HH4P  *  HH4 
HH4  —  HH3S 

IF  (HH4P  .IT.  HH1S)  GO  TO  107ft 

eta  *  1. 

TEMPI  *  ETA*( (HH3S-HH1SI/I 1 • +GAM 1 1+5S1-SS2) 
TEMP 2  *  ET A* ( SS2-SS3 )  ♦  (SS3-T4) 

TEMP  *  EDR*TEMPl  +  (  l.+C,AM3)*TFMP2 
IE  (TEMP  .LT.  .001)  TEMP  =  . 00 1 
CON  VP  *  RCNV*F  X/TEMP 
PCI  -  C0NVP*TFMP1 
PC 3  *  CONVP  *  TEMP2 
C 

107ft  74*T4-EX/(1.+RH4*GAMG) 

04*(HH4-T4 )/CLH 

C 

1077  R04* P4C B/ ( R GA S*T4 ) 

CSE’'=CS4*R04*WIN0F 

CEVA*CS*RO4*WIN0E 


0002?  3 1 0 
00022320 
00022330 
00022340 
00022350 
00022360 
00022370 
00022  380 
00022390 
00022400 
00022410 
00022420 
00022430 
00022440 
00022450 
00022460 
00022470 
00022480 
00022490 
00022500 
00022510 
00022520 
00022530 
00022540 
00022550 
00022560 
00022570 
00022580 
00022590 
00022600 
00022610 
00022620 
00022630 
00022640 
00022650 
00022660 
00022670 
00022680 
00022690 
00022700 
00022710 
C0022720 
00022730 
00022740 
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c 

00022750 

c 

CLOUDINESS 

00022760 

c 

00022770 

ICLOIIfUl 

000227B0 

CL=0. 

00022790 

CL  1 *0. 

00022B00 

CL2=0. 

00022B 1 0 

CL  3=0 . 

00022B20 

CLT=0. 

00022B30 

CL-AMIN1 (-1.3+2.6*RH3, 1 . I 

00022B40 

IF  (C1.GT.0..DR.PC1.GT.0.)  CL  1  =CL 

00022B50 

IE  (PREC.GT.0..AND.CL1.EQ.0. )  CL2=1„ 

00022360 

IE  < EX.GT .0. .AN0.PC1 .EQ.O. )  CL3=CL 

00022B  70 

c 

sssr 

00022BB0 

c 

1 

l 

00022B90 

c 

I 

i 

00022900 

c 

|  ***** 

I 

00022910 

c 

|  *  * 

i 

00022920 

c 

1  *  * 

i 

00022930 

c 

!  *  * 

i 

00022990 

c 

|  *  *  ***** 

i 

00022950 

c 

I  *  *  *  * 

i 

00022960 

c 

j  *  *  *  * 

i 

00022970 

c 

I  *  *  *  * 

i 

000229B0 

c 

|  *  *  *  *  ******* 

i 

00022990 

c 

1  *****  *****  ******* 

i 

00023000 

c 

i 

i 

00023010 

r. 

1  CL  I  CL  2  CL  3 

I 

00023020 

c 

1 

I 

00023030 

c 

II 

II 

II 

li 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

11 

II 

II 

11 

=  s  s  s 

00023090 

CL=AMAX1(CL1,CL2,CL3) 

00023050 

IF  (CL  .GE.  I. )  I CLOUO=  3 

00023060 

IF  (CL  .LT.  1.  ,ANO.  CL  .GT.  0.1  ICLDUO=? 

00023070 

c 

000230R0 

c 

ICLOUn=I  CLFAR,  I CL0U0=2  PARTLY  CLOUDY,  ICL0UD=3  OVFRCAST 

00023090 

c 

LONG  WAVE  RADIATION 

00023100 

c 

000231 10 

1 

OBO  Q3RR=AMAXl(03R,l.E-5) 

00023120 

V  AK  =  2 . +ALOG (  1 .71BBF-6/03RH ) / ALDG (  1 20 . /PL  3 ) 

00023130 

TEMI=.00I02*PL3**2*03HR/VAK 

00023190 

TEr32  =  TEMI*(p/./PL3l**VAK 

00023160 

EFV3=TEM2-TEMI 

00023160 

EEV2=TEM2-TEM1* I PL2/PL3 ) *  * V AK 

00023170 

FFVI  =  TEM2-TEM1*(  PL  1/PL3)**VA>C 

0002  3 1  BO 

EFVT  =  TEM2-TFMI*(  PTR0P/PL3  1  *X<V/  K 

00023190 

EFV0  =  TEM2-TFMI  *  (  1 2  0  .  /  P  L  3  )  *  *  V  A''. +  2  .  5  2  A  E- 6 

00023200 

RLT=STR0*TTR0P**9 

000232 10 

RL I =S  TRO*T 1**9 

00023220 

BL2=STRD*T2**9 

00023230 

RL3  =  STRI)*T3**A 

00023290 

rla=stro<-tg**a 

00023260 

<-?  o  o 
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C  LONG  WAVE  RADIATION 

R0C=0. 

R2C=0. 

R4C=0. 

URT=BLT*TRANS(EFVO-FFVT ) 

UR2=BL2*TRANS(EFVO-EFV2) 

GD  TD  (1090,1090,2000),  ICLOUO 
1090  RO0*0.82*IURT+(BL4-BLT )*( l.+TRANS ( EFVT ) )/2. ) 
R20»0.736*(UR2+(BL4-BL2)*(  l.+TRANS(EFV2))/2.) 

R40=BL4*(0.6*SQRT< TRANS (FF VO)  )-0.  1  l 
IF  (ICLni)D  .FO.  I)  GD  TD  2015 
2000  IF  ( CL2  ,LE.  0.)  GD  TD  2004 
CLT=CL2 

R0C=0.82*(URT+(BL2-BLT)*( 1.+TRANSIFFVT-FFV2) )/2. )*CLT 
R  2C  =  0 . 736  UR  2*CLT 
R2C=.5*R2C 
GD  TD  2006 

2004  IF  ( CL3  .LE.  0.)  GD  TD  2006 
CLT=CL3 

R0C=0.82*(URT+(BL3-BLT)*(  1 .+ TRANS t EF VT- FF V3 ) )/?.  )*CLT 
R  200.736*1  IIR2+(BL3-BL2)*(  l.  +  TRANSI  FFV2-FFV3)  )/2.)*CLT 
2006  IF  ( CL  1  .LE.  0.)  GD  TD  2010 
CLM=AMAX1(CLT-CL1,0. ) 

-  IN  PRESENT  VERSION,  CLM  AND  THIS  TFM  ARF  ALWAYS  ZFRO 
T  EM=0 , 

IF  (CLT  .GT.  0.001)  TEM=CLM/CLT 

R0C=0.82*(URT+(RL1-BLT)*(1.+TRANS(EFVT-FFV1))/2.)*CL1+R0C*TFM 

R2C=R2C*TEM 

2010  R4C=0.B5*( .25+.75*TRANS(FFV3) )*(BL4-HI  3)*CL 
2015  R0=R0C+( l.-CL)*ROO 
R  2=R  2C+ ( 1 .-CL ) *R20 
R4=R4C+( l.-CL )*R40 
0IRA0=4.*STBD*TG**3 

SURFACE  ALBFOD 

IF  (CDSZ  .LF.  .01)  GD  TD  340 

scosz=so*cosz 

A  LS= .0  7 

IF  (OCEAN)  GD  TD  335 
ALS  =  .  14 

IF  (LAT(J)  ,LT.  SNDWN )  GD  TO  327 
CL AT  =  ( L AT ( J  ) -SNDWN )*CDNR AD 
GO  TO  330 

327  IF  (LAT(J)  .GT.  SNOWS)  GO  TO  32R 
CLAT=(SNOWS-LAT(J) )*CONRAD 

ALS=.45*( l.  +  ICLAT-lO. ) *  *  2 ) /  (  (CLAT-30. ) *« 2+ I  CL AT- 10. ) **2 ) 

GO  TO  335 

32B  I F  ( LANO)  GO  TO  335 
CLA  T=0 .0 

330  A  L  S  -  .  4* (  l .  +  ( (CLAT-5.)**2) )/(  (CLAT-45.)**2+l  (CLAT-5.)**2) ) 


00023260 

00023270 

00023280 

00023290 

00023300 

00023310 

00023320 

00023330 

00023340 

00023350 

00023360 

00023370 

OOG233BO 

00023390 

00023400 

00023410 

00023420 

00023430 

00023440 

00023450 

00023460 

00023470 

000234B0 

00023490 

00023500 

00023510 

00023520 

00023530 

00023540 

00023550 

00023560 

00023570 

0002  3580 

00023590 

00023600 

00023610 

00023620 

00023630 

00023640 

00023650 

00023660 

00023670 

00023680 

00023690 

00023700 

00023710 

00023720 

00023730 

00023740 

00023750 

00023760 
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c 

c 

c 


SOLAR  RADIATION 


335 


ALAO=AMi  N1  (  1  .  , ,0R5-.267*ALOG10 (COS;/CDLMR  )  ) 

SA=. 369*SCDSZ 
ss=scos;-sa 

ASOT  =  SA*TRSW( (F  FVO-FFVT ) /COS7 ) 

AS2T=SA*TRSW( (EFVO-FFV2I/CDSZ ) 

FS2C=0. 

ES6C=0. 

S6C=0. 

r.O  TO  (336,336,337),  ICLOOD 
C  CLEAR 
336  FS20=AS2T 

FS60=SA*TRSW( FFVO/COSZ ) 

■?c°r!rl:rALS,*,FS40+  *  l»-ALA0)/(  1  ,-ALAO*ALS  >*SS  ) 

IF  (ICLOOD  .  FO,  1)  GO  TO  361 
c  LARGE  SCALF  CLOOD 
33V  IF  (CL2  , L  E .  0.)  GO  TO  33H 
CLT  =  CL2 
FS2C=AS2T*CLT 

ALAC=ALC?+AL ao-alc?«alao 

0nCTO1339LS,’MTFMS/,1,"ALC?*flLS,+,1*"ALAC,/,1--4L4C*ALS)*SS)»CL1 
C  LOW  LFVFL  CLOUD 
33H  IF  ( C L 3  ,LF.  0.)  GO  TO  334 
C  L  T  =  CL  3 
FS2C=AS2T*CLT 
TFMU=( FFVO-EFV3I/COS7 

JFM.S  =  ^*,1--ALC3»*T^W(TFM041.66*(FFVC3  +  FFV3M 
F  S6C  =  ( TFMS+ALC3*SA*TRSW( TFMII) ) #CLT 
ALAC  =  ALC3  +  AL  A0-ALC3>»ALA() 

S6C  = ( 1  ,-AL S  I  * ( TFMS/ ( 1 ,-ALC 3*ALS )  +  (  1 
C  THICK  CLOUD 

339  IF  ( CL  1  . L  F  ,  0, I  GO  TO  361 
CLM=AMAX1 (CLT-CL1.0. ) 

c  !?e!!R!SENT  VMS10N’  CLM  AND  THIS  TEM  are  ALWAYS  7ER0 
I hM=0, 

IF  (CLT  , GT  ,  0.)  TEM  =  CLM/CL  T 
TFMU=(FFV0-FFV1 i/cosz 

TFMR  =  ALC  1*TRSW(TFM(I)*SA*CL1 

^mS-SA*.'  1  *"A,LrCJ  !!tTocSW!  "HUM  .66*FFvcn  *CL  1  ♦  TEM„*FS2CTFM 
TFMS-SA>M  1.-ALC1)*TRSW(TFM(|+1.66*(FFVC1+FFV3)  ) 

F  SACsTFMS’t'CL  1  +  TEM(3  +  fS6C*TFM 
ALAC  =  ALC  1  +  AI.A0-ALC1*ALA0 
S6C=( l.-ALS)*(TFMS/(l.-ALCl*ALS) 

*  *  ^•-ALAC)/(1,-ALAC*ALS),<‘SS),I,CL1+S6C*TFM 


-AL AC ) / (  1  ,-AL  AC*ALS )*SS) *CLT 


00023770 
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00023790 
00023R00 
00023R 10 
00023R20 
00023R30 
00023R60 
00023R50 
00023R60 
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0002  39fl  0 
00023990 
00026000 
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00026020 
00026030 
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00026220 
00026230 
00026260 
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C  MEAN  CDNDI T ION 

00024260 

341  FS2=FS2C+( l.-CL  ) *F  S20 

00024270 

FS4=FS4C  +  (  l  .-CU*FS40 

00024280 

S4=S4C+( l.-CL )*S40 

00024290 

AS1*AS0T-FS2 

00024300 

AS3=FS2-FS4 

00024310 

C, fl  TO  345 

00024320 

340  S4*0.0 

00024330 

AS3»0.0 

00024340 

ASl =0.0 

00024350 

o  o  o  o  o  o 
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C  COMPUTATION  OF  GROUND  TFMPERATURF 
C 

345  TGR=TG 

IF  ( OCFAN )  GO  TO  347 

HR A  0=S4-R  4 

TFM=0. 

IF  ( ICE. A ND.ZZZ.LT. 0.1  I  TFM=CTIO/HICF 
A1=CSEN*(T4+CLH*(04+WET*( DOG*T  G-QG ) I ) 
A2*BRAD+4.*BL4+TFM*TICF 
B1 *CSEN* ( 1 .+CLH400G4WFT ) 

B2*Dl RAO+TEM 
TGRc(A1+A?)/(H1+B2) 

IF  (LAND.OR.TGR.LT. TICE)  GO  TO  34ft 
TGR*TICF 

346  DR4=DIRA0*< TGR-TG) 

R4=R4+DR4 

R  2  =  R2  +  . 8* ( l.-CL l*TRANS(EFV2)*DR4 
RO=RO+.R*( l.-CL I  *  TRANS ( FFVT|*DR4 
347  CONTINUE 

SFNSIBLE  HFAT  (LV/DAYI  AND  EVAPORATION  (GM/CM**2/SEC  ) 

E4  =  CFVm*(WET*(QG+0QG*( TGR-TG I  1-04  1 
F4=CSFN*( TGH-T4 I 
FK=R04*FK1*WIN0F 

TOTAL  HEATING  AND  MOISTURE  BUDGFT 
0N=(C1+C3  +  PC1  +  PC3I /CLH+PRFC-2.*E4*DTC3*GRAV/(SP*10.  ) 

IF  ( . NOT. LAND )  GO  TO  350 
RUNOFF=0. 

IF  (ON.GT.O.  .AND.  WFT.LT.l.)  RUNOFF = ,5*WE T 
IF  (ON.GT.O.  .AND.  WET.GF.l.  I  RUN0FF*1. 

WET  =  GW( J , I )  +  ( 1  , -RUNOFF )*QN*5. *SP/GRA V/GWM 
IF  (WET.GT.I. )  WFT  *  1. 

IF  (WET.LT.O. |  WFT  =  o. 

350  CONTINUE 
C 

351  HI=  (ASUR2-R0)*C0E1*C0LMR*CI  +  PCI 

H3=( AS3+R4-R2+F4 ) *COFl*COLMR+C3+PC3+PRFC*CLH 
HI J . I , 1  I *0. 5* ( HI +H3 ( 

TFMP=0.5*(HI-H3 ) 

C 

C  SURFACF  FRICTION 
C 

352  CONTINUF 
355  CONTINUF 
C 

358  CONTINUF 


00024360 

00024370 

00024380 

00024390 

00024400 

00024410 

00024420 

00024430 

00024440 

00024450 

00024460 

00024470 

00024480 

00024490 

00024500 

00024510 

00024520 

00024530 

00024540 

00024550 

00024560 
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00024580 

00024590 

00024600 
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00024620 

00024630 

00024640 

00024650 

00024660 

00024670 

00024680 

00024690 

00024700 
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00024790 
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C 

c  pack  for  output 

c 

ww=o.o 

CC ( J  » I » 1  I  =CL  1 
CC( J, l,2»=CL? 

CC ( J , I , 3 ) =CL  3 
CC ( J, I ,4  )=CL 

CPC1  (  J,  1)  =  (C1+PC1  )*OAY/()TC3 

CPC  3 ( J »  I  )=(C3+PC3!*OAY/OTC3 

CPC1(J,I)=C1+PC1 

CPC3(J, I )  =C3  +  PC  3 

PRCLHI  J.  I)  =PPFC*CLH*l)AY/OTC3 

SR  4 ( J  » I  )=R4 

SCALE=SCALFO*COLMR 

KKK  =  I PK ( IF|X(AS1*SCALF»,|FIX(AS3*SCALF) ) 

T  T  (  J  »  I » 1 ) =  X  X  X 

KKK* I  PM !F|X(  (R2-R0)*SCALFI , |FIX( (R4-R? )*SCALF I ) 

VT(J,I  ,2>=XXX 

KKK  =  IPK( | FI X(F4  )  ,  I  F  I  X ( E 4 *  1 00 . * 3600 . *2 4.  )  ) 

T  T ( J  » I ,2)=XXX 

KKK  =  I PK ( IF!X(T4*10.  ),IFIX(PRFC*SCALFP*SP)  ) 

03T( J, I ) =  X  X  X 

KKK  =  IPK< I  FI X( EX* 10.  )  ,  I  F  I  X (  <  C  1 +C  3  +  PC  1+PC  3  ) *  S  P*  SC  A  L  F  P /C  LH  )) 
OT  ( J  ,  I  ,2)=XXX 

KKK  =  I PK ( I F|X(H1*100.*DAY/0TC3) » IF  I  X ( H3* 1 00. *0A Y / DTC  3 ) ) 
PT(J,I  )=XXX 

KKK  =  IPK( IFIXIS4/10.  »,  |FIX(WW*100. )) 

SOU, I  )=XXX 
360  CONTINUE 
370  CONTINUE 
375  CONTINUE 
377  CONTINUE 
380  CONTINUE 
390  CONTINUE 
400  RFTURN 
FNO 
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VIII.  FORTRAN  DICTIONARY 


PURPOSE 

In  order  to  permit  the  efficient  reading  of  the  FORTRAN  program 
and  map  routine  listings,  all  of  the  FORTRAN  variables  used  in  the 
code  are  collected  below.  For  each  FORTRAN  term  a  brief  identifica¬ 
tion  or  meaning  is  given,  together  with  the  term's  units  (if  any) 
and  the  location  of  its  first  appearance  or  definition  in  the  pro¬ 
gram.  The  locations  are  not  given  for  certain  symbols  of  widespread 
use,  and  those  FORTRAN  symbols  used  only  in  the  output  map  routines 
of  Chapter  VII,  Section  B,  are  not  listed.  Conventional  FORTRAN  no¬ 
tation  has  been  used,  with  the  equivalence  in  terms  of  the  physical 
symbols  of  the  model  also  given  where  appropriate. 
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TERM  LIST 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

A 

AX  *  10"*,  horizontal  momentum  diffusion  coefficient 
(zero  in  present  version) 

2  -1 
m  sec 

mmm 

■ 

ALAC 

aac  ac  +  a0  “  ac  a0»  albedo  of  cloudy  atmosphere 

_ _ 

10650 

1  1 
for  Rayleigh  scattering 

COMP  3 

ALAO 

a0 »  albedo  of  clear  sky  for  Rayleigh  scattering 

_ _ 

10450 

COMP  3 

ALC1 

“c  ’  a^bedo  type  1  (penetrating  convective) 

__ 

7610 

cloud,  -  0.7 

COMP  3 

ALC2 

a  ,  albedo  of  type  2  (middle-level  overcast) 

7620 

cloud,  -  0.6 

COMP  3 

ALC3 

ac  *  albedo  of  type  3  (low-level  convective) 

__ 

7630 

^  cloud,  ■  0.6 

COMP  3 

ALP 

(m/n  -  l)/8,  longitudinal  smoothing  parameter 

_  _ 

6920 

AVRX 

ALPH(8) 

identification  parameter  (not  used) 

— 

— 

ALPHA 

(1)  FXCO*(P(J,I)+(P(J-l,i))*(FD(J,I)+FD(J-l,I)) 
Coriolis  force  parameter 

m^mb 

5160 

COMP  2 

(2)  ALP/FNM,  longitudinal  smoothing  weighting 
factor 

— 

6950 

AVRX 

ALS 

ag’  sur^ace  albedo  (0.07  for  ocean,  0.14  for 
bare  land,  a  defined  function  of  latitude 
for  ice  and  snow) 

— 

10290-10410 
COMP  3 

AM0NTH(3) 

name  of  month 

— 

— 

APHEL 

apihelion ,  1  July  (=  183.0) 

day 

13110 

INPUT 
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FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

ASOT 

A 

Sj,  flux  at  tropopause  of  solar  radiation 
subject  to  absorption 

ly  day  1 

10480 

COMP  3 

AS1 

A.,  insolation  absorbed  by  upper  layer 
(■  0  if  cos  r,  <,  0.01) 

ly  day  1 

10950 

COMP  3 

AS2T 

A  ' 

(Sj)  >  flux  at  level  2  of  solar  radiation 
subject  to  absorption  (-  FS20) 

ly  day  1 

10490 

COMP  3 

AS3 

A.,  insolation  absorbed  by  lower  layer 
(■  0  if  cos  r,  <,  0.01) 

ly  day  1 

10960 

COMP  3 

AT  EM 

(03  "  91^P3  “  Pi)  »  temperature  interpolation 
parameter 

deg (mb)  2< 

8490 

COMP  3 

AX 

horizontal  momentum  diffusion  coefficient 
(■  0  in  present  version) 

2  -1 
m  sec 

13380 

INPUT 

AXU(J) 

A(DXU(J)/300  km)^^,  zonal  momentum 
diffusion  coefficient  (not  used) 

2  -1 
m  sec 

14800 

MAG FAC 

AXV(J) 

A(DXP(J)/300  km)  zonal  momentum 

diffusion  coefficient  (not  used) 

2  -1 
m  sec 

14810 

MAGFAC 

AYU(J) 

A(DYU(J)/300  km)  meridional  momentum 

diffusion  coefficient  (not  used) 

2  -1 
m  sec 

14820 

MAGFAC 

AYV(J) 

A(DYP(J)/300  km)^^,  meridional  momentum 
diffusion  coefficient  (not  used) 

2  -1 
in  sec 

14830 

MAGFAC 

A1 

ground  temperature  parameter 

ly  day  1 

11090 

COMP  3 

-370- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

A2 

^4  “  ^4  "*■  ^oT^  Sr°und  temperature  parameter 

ly  day  ^ 

11100 

COMP  3 

BC0MN 

(67040) 

common  block  (see  Chapter  VII,  Subsection  A. 3) 

(various) 

0140 

COMMON 

BIT 

control  parameter  (not  used) 

— 

— 

BLANK 

logical  variable  control 

— 

— 

BLT 

aTT,  long-wave  radiation  parameter  at  tropopause 

ly  day  * 

9860 

COMP  3 

BL1 

aT^,  long-wave  radiation  parameter  at  level  1 

ly  day  ^ 

9870 

COMP  3 

BL2 

4 

oTj,  long-wave  radiation  parameter  at  level  2 

ly  day  * 

9880 

COMP  3 

BL3 

4 

long-wave  radiation  parameter  at  level  3 

ly  day  ^ 

9890 

COMP  3 

BL4 

4 

a^g>  long-wave  radiation  parameter  at  ground  level 

ly  day  ^ 

9900 

COMP  3 

BRAD 

S4  ^4 >  ground  radiation  balance  (uncorrected 

for  T  ) 
g 

ly  day  ^ 

11060 

COMP  3 

BTEM 

^61P3  ~  63p1^^P3  “  P^) »  temperature  interpolation 
parameter 

deg (mb)  K 

8500 

COMP  3 

B1 

cp(l  +  Y  WET),  ground  temperature  parameter 

ly  day  ^deg  ^ 

11110 

COMP  3 
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FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

B2 

3  ~  fKI 

4aT^  +  B,  ground  temperature  parameter  (B  -  0 
unless  over  ice) 

ly  day  ‘'"deg  * 

11120 

COMP  3 

C(K) 

equivalence  array  (see  Chapter  VII,  Subsection  A. 3) 

(various) 

0430 

COMMON 

CD 

Cp,  surface  drag  coefficient 

— 

7970-7980 
COMP  3 

CENTIC 

identification  for  sea-surface  temperature 

— 

— 

CEVA 

100  CDp^  ( |  [ 71  +  G) ,  surface  evaporation 

parameter 

-2  -1 
g  cm  sec 

9390 

COMP  3 

CHECK 

data  control  parameter  (not  used) 

— 

— 

CL 

max(CLl,  CL2,  CL3) ,  fraction  of  sky  covered 
by  cloud 

— 

9700 

COMP  3 

CLAT 

degrees  poleward  of  snowline,  used  in  surface 
albedo  calculation  (<Pj-SN0WN,SN0WS-cf>j)*C0NRAD 

for  (northern,  southern)  hemisphere 

deg  lat 

10330,  10360 
COMP  3 

CLH 

L/Cp,  latent  heat  to  specific  heat  ratio 
(-  580/. 24) 

deg 

7300 

COMP  3 

CLKSW 

input  identification 

— 

— 

CLM 

raax(CLT  -  CL1,0),  cloud  parameter  (not  used) 

— 

10130 

COMP  3 

CLT 

0,CL2  or  CL3,  cloud  parameter  (not  used) 

— 

10030 

COMP  3 
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FORTRAN 

Symbol 


Meaning 


Units 


Program 

Location 


CL1 


CL2 


CL  3 


CNRX 


min(-1.3  +  2.6RH3,  1),  fraction  of  sky  covered  by 
type  1  (penetrative  convective)  cloud 

fraction  of  sky  covered  by  type  2  (large-scale 
condensation)  cloud  (either  0  or  1) 

min(-1.3  +  2.6RH3,  1),  fraction  of  sky  covered  by 
type  3  (low-level  convective)  cloud 

O.O1*C0NRAD,  unit  conversion  factor  (not  used) 


deg/radian 


9500 
COMP  3 


9510 
COMP  3 


9520 
COMP  3 


7440 
COMP  3 


C0E 


C0E1 


GRAV*30 . 48*HCST ,  unit  conversion  factor  for  surface 
elevation 

-- 

16200,  16270 
INIT  2 

200g/cp(Po  “  PT)103,  heat  capacity  of  1/2  unit 
column 

deg  ly  1 

7380 

COMP  3 

(1)  C0E*DTC3/24*36OO,  unit  conversion  factor  for 
heating  terms 

deg  day  ly  * 

7390 

COMP  3 

(2)  VVJTj  +  (»,«!/«!)  '  I(P3/P0)'  -  (Pj/Pp)'], 
level  1  geopotential  parameter 

2  -2,  -1 
m  sec  deg 

5360 

COMP  2 

C0E2  |  V.3/2T3  ♦  •  [<p3/p/  -  <Pl/p/], 

level  1  geopotential  parameter 


2  -2  .  -1  , 
m  sec  deg  |  5370 


COMP  2 


Cj)E3 


W2Ti  -  ViMTi>  ’  'V"./  -  Vp/1. 

level  3  geopotential  parameter 


2  -2  -1 
m  sec  deg  I  5400 


COMP  2 


C0E4 


°3’»3/2I3  -  <V3/4T3>  '  l(P3/P„>'  -  <P,/p/]. 
level  3  geopotential  parameter 


2  -2  -1 
m  sec  deg  I  5410 


COMP  2 


C0LMR 


(po  "  PT^PS  “  pt^»  column  mass  ratio  (also 
redefined  in  11530,  COMP  3  with  average 


ps  "  PT> 


8060 
COMP  3 
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FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

C0NRAD 

180/PI,  unit  conversion  factor 

deg/radian 

7430 

COMP  3 

0NV(J,I) 

C0NVM,  mass  convergence  at  level  1 

2  -1  . 
m  sec  mb 

4220 

COMP  1 

C0NVM 

-(mn/2)V  •  ttV,  net  mass  convergence  into  cell 
surrounding  n  point  (defined  for  poles  in 

4560,  4580  COMP  1) 

2  -1  . 
m  sec  mb 

4180-4210 
COMP  1 

C0NVP 

(1*4  -  h^SA^rt^)  1,  penetrating  convection 
parameter 

— 

9300 

COMP  3 

C0SD 

cos  C,  cosine  of  solar  declination 

— 

15540 

SDET 

C0SL(J) 

cos  <J>j,  cosine  of  latitude 

— 

14960 

INSDET 

C0SZ 

cos  cosine  of  solar  zenith  angle 

— 

7800 

COMP  3 

CP  ART 

0.5*1.3071*10^,  a  constant  (not  used) 

— 

7690 

COMP  3 

CS 

2 

10  CD>  unit  conversion  factor 

cm  m  ^ 

7990 

COMP  3 

CSEN 

2  ^ 

Cj,  ■  10  c^C^p ^ ( ! Vg  J  +  G)  DAY,  surface  sensible 
heat  flux  parameter 

ly  day  ^deg  1 

9380 

OMP  3 

CS4 

2 

Cp^D  *  surface  sensible  heat  flux  parameter 

-1  ,  -1 
cm  m  cal  g 

,  -1  .  -1 
deg  sec  day 

8000 

COMP  3 

-374- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

CTI 

thermal  conductivity  of  ice  (-  0.005) 

1  “I  ,  “I 

ly  sec  cm  deg 

7320 

COMP  3 

CTID 

thermal  conductivity  of  ice  (-  432) 

ly  day  ^cm  deg  ^ 

7330 

COMP  3 

CXXX(800) 

data  control  parameter  (not  used) 

— 

— 

Cl 

(AT  )  *  (h  -  h*)(2  +  y  )_15At,  level  1 

1  CM  J  1  1 

temperature  change  due  to  mid-level 
convective  latent  heating 

deg 

8870 

COMP  3 

Cl (800) 

array  identification 

— 

— 

C3 

(AT)  -(AT)  (l+Y)(LR/2) 

CM  1  CM 

t(h3  -  h*)  +  (1  +  Yl)(LR/2)]_1 

level-3  temperature  change  due  to  mid-level 
convective  latent  heating 

deg 

8880 

COMP  3 

DAY 

hours  in  day  (=  24),  or  sec  in  day  (-  86,400) 

hr,  sec 

13420,  13650 
INPUT 

DAYPYR 

days  in  year  (-  365) 

day 

13070 

INPUT 

DCLK 

logical  variable  for  day  counter  SDEDY 

— 

15050 

INSDET 

DEC 

(2  3. 5PI/180) cos [2PI (DY-173 .0) /365 ]  ,  solar 
declination 

radians 

15510 

SDET 

DECMAX 

23.5PI/180,  maximum  solar  declination 

radians 

13080 

INPUT 

DEFF 

n  -  Ay,  equatorial  meridional  mesh  length 

m 

6880 

AVRX 

-375- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

DELTAP 

correction  for  atmospheric  mass  loss  (=  PSF  -  ZMM) 

mb 

1430 

GMP 

DIRAD 

3 

4oT^,  long-wave  radiation  parameter  at  ground 

ly  day  ^deg  1 

10230 

COMP  3 

DIST 

(DY  -  183.0)/365,  day  of  year  parameter 

— 

15450 

SDET 

DLAT 

Acp,  north/south  grid-point  separation  (=  4  deg) 
(changed  to  radians  in  13590,  INPUT) 

deg 

13360 

INPUT 

DLIC 

input  card  identification  (not  used) 

— 

— 

DLfilN 

AX  -  2PI/72,  east/west  grid-point  separation 
(**  5  deg) 

radians 

13610 

INPUT 

DPLK 

<  < 

P3  -  P1 

(mb)* 

8160 

COMP  3 

DQG 

_2 

B  9  (T  )T  =  y  c  / L,  approximate  change  of  q 

o  o  o  P  S 

dqs<T> 

with  temperature,  — — ' 

deg  1 

9040 

COMP  3 

DRAT 

n/m,  grid  scale  ratio 

— 

6900 

AVRX 

DRAW 

CD ( ! Vs  1  ^  +  ^ ’  sur^ace  wind  drag  parameter 

"I 

m  sec 

8940 

COMP  3 

DR4 

3  ~ 

4oTg(Tgr  -  Tg)  =  =  C^ ,  surface  long-wave 

radiation  parameter 

ly  day  ^ 

11160 

COMP  3 

DSIG 

-  o.^,  model  sigma  increment  («  1/2) 

— 

7250 

COMP  3 

-376- 


FORTRAN 

Symbol 


DT 


At  in  sec  (-  360) 


Program 


Meaning 


Uni  ts 


Location 


sec 


13560 

INPUT 


DTC3 


5At ,  time  Interval  between  heating  steps  In 
COMP  3  (-  1800) 


sec 


7280 
COMP  3 


DTM 


At  In  min  (■  6) 


min 


13340 

INPUT 


DXP(J) 


m  -  ail  cos  9 ,  east/west  distance  between  ft 
*  J 

(or  u  )  points 


m 


14570 

MAGFAC 


DXU(J) 


m  ■  aAAicos  9j  +  cos  9j_j)/2,  east/west  distance 
between  u,v  (or  v*)  points 


m 


14610 

M/.GFAC 


DXV(J.I) 


zonal  distance  between  it  points  (*  DXP) 


m 


DXYP(J) 


mn,  area  of  grid  cell  around  ft  point  (defined 
for  polar  points  In  14680,  14690  MAGFAC) 


2 


m 


14670 

MAGFAC 


DY 


t,  day  counter  (■  SDEDY) 


day 


14530 

SDET 


DYP(J) 


n  -  (9^+1  -  9j_j)a/2,  north/south  distance 
a 

between  u,v  (or  v  )  grid  points  (defined 
for  polar  points  In  14640,  14650  MAGFAC) 


m 


14630 

MAGFAC 


DYU(J) 


n 


■  a(9j  -  north/south  distance  between 

#  * 

ft  (or  u  )  grid  points 


m 


DYV(J.I) 


meridional  distance  between  u,v  points  (■  DYP) 


14540 

MAGFAC 


ECCN 


orbital  eccentricity  (■  0.0178) 


13120 

INPUT 


-377- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

ED 

constant  used  in  air/ground  interaction  (-  10,0) 

m 

13400 

INPUT 

EDR 

(|Vgr/2000)[|Vs|,T/2000  +  Cpd^r  +  G)]-1, 
wind  speeo  weighting  factor 

— 

9060 

COMP  3 

EDV 

|Vg|  /2000,  air/ground  interaction  parameter 

m  sec  * 

8950 

COMP  3 

EFVC1 

* 

uc  »  effective  water  vapor  for  type  1  clouds  (-  65.3) 

-2 

g  cm 

7660 

COMP  3 

EFVC2 

* 

uc2*  effectlve  water  vapor  for  type  2  clouds  (-  65.3) 

-2 

g  cm 

7670 

COMP  3 

EFVC3 

* 

uc3-  effective  waiter  vapor  for  type  3  clouds  (-  7.6) 

-2 

g  cm 

7680 

COMP  3 

EFVT 

"T  "  p3q3g"1(2  +  K>'1l<P4/P3>2+K  -  (PT/P3)2+K]i 

effective  water  vapor  in  air  column  below 
tropopause 

„  -2 
g  cm 

9840 

COMP  3 

EFVO 

u!  -  P3<J38~1<2  +  K)"1[(p4/p3)2+K  -  (120/p3)2+K] 

+  2.526  x  10'5, 

effective  water  vapor  in  entire  atmospheric  column 

-2 

g  cm 

9850 

COMP  3 

EFV1 

U1  "  P3q3*"1(2  +  K)-1f(P4/P3>2+K  "  (P1/P3)2+K], 
effective  water  vapor  in  air  column  below  level  1 

„  -2 
g  cm 

9830 

COMP  3 

EFV2 

u2  *  p3q38"1(2  +  K>"1KP4/P3)2+K  -  (P2/P3)2+K], 

effective  water  vapor  in  air  column  below  level  2 

-2 

g  cm 

9820 

COMP  3 

-378- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

EFV3 

U3  "  P^38"^2  +  K>"1[(P4/P3)2+K  -  1], 

effective  water  vapor  In  air  column  below  level  3 

-2 

g  cm 

9810 

COMP  3 

EG 

eg(Tg)»  saturation  vapor  pressure  at  ground 
temperature 

cb 

9020 

COMP  3 

EQNX 

equinox,  22  June  («  173.0) 

day 

13100 

INPUT 

ESI 

es(V,  saturation  vapor  pressure  at  level  1 

cb 

835C 

COMP  3 

ES3 

es^T3^’  saturation  vapor  pressure  at  level  3 

cb 

8360 

COMP  3 

ETA 

entrainment  factor  (■  1) 

— 

9250 

COMP  3 

EVENT 

program  control  parameter 

— 

— 

EVNTH 

data  control  parameter  (not  used) 

— 

— 

EX 

(D  h3  -  h*  -  HH3  -  HH1S 

-  (L/cp)lq3  -  q^T^]  -  LRcp/L, 
stability  parameter  for  middle-level  convection 

deg 

8850 

COMP  3 

(2)  h4  -  h*  -  HH4  -  HH3S , 

stability  parameter  for  low-level  convection 

deg 

9210 

COMP  3 

EXP1 

empirical  coefficient  -  4/3 

— 

14780 

MAGFAC 

E4 

E  "  °4  CD(IVSI  +  G)(qg  “  q^),  surface  evaporation 
rate 

-2  -1 
g  cm  sec 

11240 

COMP  3 

FORTRAN 

Symbol 


Meaning 


Units 


Program 

Location 


F(J) 

f  ■  -20  3 (cos  9j)/3cP*  Coriolis  parameter  (defined  for 
poles  in  14740-14750  MAGFAC) 

-1 

sec 

FAH 

logical  vaiiable  for  temperature  input 

— 

FAREN 

identification  for  sea-surface  temperature 

— 

FD(J , I) 

(1)  n  ■  mniT,  area-weighted  pressure  (about  tt  point) 

m^mb 

2 

(2)  V  ,  square  of  surface  wind  speed 

2  -2 
m  sec 

(3)  F  ■  mnf  -  u  3m/3y,  weighted  Coriolis  force 
(at  -rr-points) 

2  -1 
m  sec 

FDU 

Hu  ■  average  imitt  at  u,v  points  (defined  for  polar 
caps  in  2650-2660  COMP  1) 

2  . 
m  mb 

FEET 

identification  for  topographic  height 

— 

FIM 

IM,  maximum  number  of  longitudinal  grid  points  (»  72) 

— 

FIM1 

I-l“i-l,  longitudinal  grid-point  variable 

FJ 

J«j ,  longitudinal  grid-point  index 

— 

FJE 

J  index  for  equator  («  23^) 

— 

FJM 

JM,  maximum  number  of  latitudinal  grid  points  (-  46) 

— 

FK 

04V(|Vg!7'  +  G)(o3  -  01)"1(po  -  pT)_1, 

surface  friction  parameter 

-1 

sec 

14710-14730 

MAGFAC 


2560 
COMP  1 

7550 
COMP  3 

507C-5120 
COMP  2 


2640 
COMP  1 


14460 

MAGFAC 


11260 
COMP  3 


-380- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

FK1 

(P0  “  P^)  sur^ace  friction  parameter 

2  -1 
cm  g 

8010 

COMP  3 

FL 

2MOD(K,2)+l,  indicator  for  u,v  data  at  levels  1  and  3 

— 

12350 

COMP  4 

FLUX 

...  *  * 

(1)  u  At,  v  At,  mass  flu*  parameters 

2  . 
id  mb 

3310,  3520 
COMP  1 

(2)  -u  At/4,  -v  At/4,  ’iiass  flux  parameters  at  level  1 

2  . 
m  mb 

3390,  3610 
COMP  1 

(3)  5u  At/4,  5v  At/4,  mass  flux  parameters  at  level  3 

(4)  various  momentum  flux  parameters 

2  . 
m  mb 

2  , 
m  mb 

3610,  3620 
COMP  1 

3830,  3910, 
3980,  4050 
COMP  1 

FLUXQ 

FLUX*Q3M  (and  other  definitions),  moisture  flux 
parameters 

2  . 
m  mb 

3480,  3660 
COMP  1 

FLU  XT 

flux*(t(j,i,l)+t(j,ipi,l)) 

(and  other  definitions),  temperature  advection 
parameters 

m^mb  deg 

3320-3580 
COMP  1 

FLUXU 

FLUX*(U(J,I,L)+U(J, IM1,L)) 

(and  other  definitions),  u-momentum  advection 
parameters 

2  -1  U 

m  sec  mb 

3840-4060 
COMP  1 

FLUXV 

FLUX* (V(J,I,L)+V(J, IM1 ,L ) ) 

(and  other  definitions),  v-moraentum  advection 
parameters 

2  -1  u 

m  sec  mb 

3870-4090 
COMP  1 

FM 

FMX*10  ,  a  constant 

— 

13610 

INPUT 

FMX 

constant  (-  0.2) 

— 

13400 

INPUT 

FNM 

NM,  the  integer  part  of  DRAT 

— 

6940 

AVRX 

-381- 


FORTRAN 

Symbol 


Meaning 


Units 


Program 

Location 


FSDEDY 


FS2 


FS2C 


FS20 


FS4 


FS4C 


FS40 


FXC0 


t,  day  of  year  (-  SDEDY) 


S*  +  CL 


total  flux  of  SA  at  level  2 
o 


(vlus  reflected  flux  from  type  1  cloud  top) 


(1)  AS2T*CLT,  clear  sky  flux  at  level  2,  times 
type  2  or  3  cloudiness 

<2,  CL  [<S*>"  ♦  (s*r  )"] 

A 

flux  of  S  at  level  2  (plus  flux  reflected 
o 

from  cloud  top)  times  type  1  cloudiness 


A  1  A 

(Sj)  ,  flux  of  Sq  at  level  2  for  clear  sky 


s£  +  CL 


\  K.)*' 

(plus  reflected  flux  from  cloud  top) 


total  flux  of  S  at  level  4 
0 


CL  |<sj)  +  ac  ^  j  J  ,  flux  of  S*  reaching 
level  4  (plus  flux  reflected  from  cloud  top) 


A  '  A 

(S4)  i  flux  of  Sq  at  level  4  for  clear  sky 


(1)  TEXC0/2 ,  time-step  factor  for  advectlon 
(other  definitions  In  3770,  5030  COMP  1) 

(2)  DT/4,  time-step  factor  for  pressure  force 


(3)  flt/8Cp,  time-step  factor  In  thermodynamic 
energy  equation 


day 


ly  day 


-1 


ly  day 


-1 


ly  day 


-1 


ly  day 


-1 


ly  day 


-1 


ly  day 


-1 


ly  day 


-1 


sec 


sec 


-2 

m  sec  deg 


7450 
COMP  3 


10920 
COMP  3 


10620,  10710 
COMP  3 

10850 
COMP  3 


10550 
COMP  3 


10930 
COMP  3 


10640,  10740, 
10870 
COMP  3 


10560 
COMP  3 


3270,  4710 
COMP  1 

5470 
COMP  2 

6100 
COMP  2 


-382- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

FXC01 

(1)  TEXC0/24,  time-step  factor  for  advection 

sec 

3780 

COMP  1 

(2)  DT/2,  time-step  factor  for  pressure  force 

sec 

3480 

COMP  2 

(3)  At/4Cp,  time-step  factor  in  thermodynamic 
energy  equation 

-2  3. 

m  sec  deg 

6110 

COMP  2 

F4 

T  *  Cp (Tg  -  T^) ,  surface  sensible  heat  flux 

ly  day  * 

11250 

COMP  3 

GAMG 

_2 

Yg  ■  (L/cp)Beqg(Tg)T  ,  latent  heat  parameter 

— 

9080 

COMP  3 

GAM1 

Y^  ■  (L/Cp)®e<ls(Ti)T2^«  latent  heat  parameter 

— 

8420 

COMP  3 

GAM  3 

Y^  "  (L/ cp) Be<ls ^T3)T3  •  latent  heat  parameter 

— 

8430 

COMP  3 

GRAV 

g,  acceleration  of  gravity  (■  9.81) 

-2 

m  sec 

13420 

INPUT 

GT(J,I) 

T  ,  ground  temperature  (-  T  after  radiation 

8  gr 

correction) 

deg 

11200 

COMP  3 

GM(J,I) 

GW  ■  WET,  ground  wetness  (0  <  GW  5  1) 

— 

11360 

COMP  3 

GWM 

ground  water  mass  (■  30) 

-2 

g  cm 

7270 

COMP  3 

H(J, I , 1) 

(1)  (111  +  H3)/2,  average  heating 

deg 

11450 

COMP  3 

(2)  (HI  +  H3)mn/2,  area-weighted  average  heating 

[Note:  H(J,I,2)  not  used.] 

.  2 
deg  m 

11870 

COMP  3 

-383- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

HAC0S 

cos  d  cos  (t  +  X) ,  solar  zenith  angle  parameter 

— 

7780 

COMP  3 

HOST 

unit  conversion  factor  for  surface  elevation 
(■  1  if  height  In  102  ft) 

— 

16200,  16260 
INIT  2 

HEIGHT (J) 

surface  height  data 

h  ft ,  dm 

16310 

INIT  2 

HHG 

T  +  (L/c  )q  WET,  ground  equivalent  temperature 
o  P  8 

deg 

9050 

COMP  3 

HH1S 

hl  "  63(ps/po)K  +  (0l  -  03>(p2/po),C  +  (L/cp>18«Ti>* 
level  1  stability  parameter 

deg 

8790 

COMP  3 

HH3 

h3  "  03(ps/po)<  +  a/cP)q3* 
level  3  stability  parameter 

deg 

8770 

COMP  3 

HH3" 

h3  -  *  <lV.<T3K 

level  3  stability  parameter 

deg 

8780 

COMP  3 

HH4 

** 

(1)  h^,  low-level  temperature  parameter 

deg 

9070 

COMP  3 

(2)  h4  -  T4  +  (L/cp)q4, 

level  4  stability  parameter 

deg 

9230 

COMP  3 

(3)  h^,  level  3  stability  parameter 

deg 

9252 

COMP  3 

HH4P 

h4  *  HH4,  level  4  stability  parameter 

deg 

9220 

COMP  3 

MICE 

effective  ice  thickness  (■  300) 

cm 

7340 

COMP  3 

-384- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

HRGAS 

R/2,  one-half  the  dry  air  gas  constant 

2  -2.  -1 
m  sec  deg 

4990 

COMP  2 

HSCL 

unit  indicator  for  surface  height 

— 

16240 

INIT  2 

HI 

H1  -  (Aj  +  R2  -  RQ)(2g/7Tc  )5At  +  (AT  )  +  (AT  )  , 

P  CM  1  CP 

total  heating  at  level  1  (over  5At  interval) 

deg 

11430 

COMP  3 

H3 

h3  “  (A3  +  R4  -  R2  +  r)(2g/7rc  )5At  +  (AT  ) 

P  3  CM 

+  (AT  )  +  (AT,)  , 

CP  J  LS 

total  heating  at  level  3  (over  5At  interval) 

deg 

11440 

COMP  3 

I 

i,  longitude  grid-point  index 
(I  •  1  is  \  -  0  at  180  deg  W) 

— 

— 

IC(800) 

Integer  array  (-  c) 

— 

— 

ICE 

ice-cover  location  Indicator 

— 

7860 

COMP  3 

IC1(800) 

array  identification  (alternate  to  C) 

— 

— 

ICL0UD 

cloud  parameter  (■  1  for  clear,  -  2  for  partly 
cloudy,  •  3  for  overcast) 

— 

9430,  9710, 
9720 

COMP  3 

ID 

identification  on  input  data  card 

— 

— 

IDAY 

day  number  (■  TAU/R0TPER) 

— 

0500 

CONTROL 

IH 

IM/2  +  1,  longitudinal  grid-point  parameter  (■  37) 

_« 

— 

-385- 


FORTRAN 

Program 

Meaning 

Units 

Program 

Location 

IHALF(2) 

two  half  words  that  form  IWD 

— 

— 

IL 

(1)  card  identifier  for  topography 

(2)  left  half  word  in  packed  data 

(3)  index  counter 

— 

16320 

INIT  2 

ILEV 

level  identification  parameter  (not  used) 

— 

— 

ILH 

entry  point  for  left  half  word  in  IPKWD 

— 

— 

IL1  ) 
IL2  [ 
IL3  ] 

temporary  identification  of  topography  cards 

— 

— 

IM 

maximum  number  of  east/west  grid  points  (■  72) 

— 

— 

I  MM2 

IM  -  2,  longitudinal  grid-point  index 

— 

— 

IM1 

I  -  1,  longitudinal  grid-point  index 

— 

— 

INU 

identification  for  card  reader  input 

— 

IPKWD 

pack  data  word  (argument  for  ILH,  IRH) 

— 

IP1 

1+1,  longitudinal  grid-point  index 

— 

IR 

right  half  word  in  packed  data 

— 

— 

IRH 

entry  point  for  right  half  word  in  IPKWD 

— 

— 

ISINT 

control  parameter  (not  used) 

— 

— 

IWD 

word  containing  two  half  words 

— 

— 

-386- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

J 

j ,  latitudinal  grid-point  index 

— 

— 

JDYACC 

variable  for  day  of  month  determination 

— 

15350 

SDET 

JE 

JM/2  +  1,  latitudinal  grid-point  index  (■  24) 

— 

6870 

AVRX 

JL 

index  counter 

— 

— 

JM 

maximum  number  of  north/south  grid  points  («■  46) 

— 

— 

JMM1 

JM  -  1,  latitudinal  grid-point  index 

— 

— 

JMM2 

JM  -  2,  latitudinal  grid-point  index 

— 

— 

JTP 

variable  input/output  identification  (not  used) 

— 

— 

JUMP 

control  parameter  (not  used) 

— 

— 

K 

level  or  variable  indicator  (in  friction  calculation 

K  -  1  or  2) 

— 

— 

KAPA 

<  -  R/Cp>  thermodynamic  ratio  (=  0.286) 

— 

— 

KEYS (J) 

logical  control  parameters  (not  used) 

— 

— 

KKK 

packed  data  location  in  COMP  3 

— 

11690 
COMP  3 

KNT 

variable  input/output  identification  (not  used) 

— 

— 

KSET 

array  for  KEY  control  characters  (not  used) 

— 

— 

KTP 

variable  identification  for  history  tape 

— 

— 

-387- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

K1 

2K,  identifier  for  or 

— 

11550 

COMP  3 

K2 

2K  +  1,  identifier  for  u^  or 

— 

11560 

COMP  3 

L 

level  indicator  (L  ■  1  for  level  1,  L  -  2  for 
level  3) 

— 

— 

LAND 

land  location  indicator 

— 

7870 

COMP  3 

LAT(J) 

latitude  of  grid  point 

radians 

14490 

MAGFAC 

LDAY 

t,  day  numbering  origin  (-  0) 

day 

15010 

INSDET 

LT? 

variable  input/output  identification  (not  used) 

— 

— 

LYR 

year  (if  reset  from  input) 

year 

15040 

INSDET 

M 

logical  KEY  function  argument 

— 

— 

MARK 

MARK  1,  control  number  in  topography  deck 
(■  0  if  deck  not  read) 

— 

13680 

INPUT 

MAP GEN 

map  generation  identification 

— 

— 

MAPLST 

(3,40) 

map  list  identification  (not  used) 

— 

— 

MAXDAY 

-2 

DAYPYR  +  10  ,  maximum  allowed  day  in  year 

(-  365.01) 

day 

15280 

SDET 

-388- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

METER 

identification  for  topographic  height 

— 

— 

MNTHDY 

identification  for  day  of  month 

day 

— 

M0NTH(12) 

days  in  each  month  (beginning  with  January) 

day 

— 

MRCH 

identifier  for  steps  in  time  integration 
(-  1,  2,  3,  or  4) 

— 

1920, 

2120-2140 

STEP 

MTP 

variable  identification  for  printed  output 

— 

— 

N 

logical  variable  in  KEYS  array 

— 

— 

NCYCLE 

control  parameter  for  MRCH  (*■  5) 

— 

13340 

INPUT 

NC3 

number  of  time  steps  between  uses  of  subroutine 
COMP  3  (-  5) 

— 

13340 

INPUT 

NM 

integer  part  of  DRAT 

— 

6930 

AVRX 

N00UT 

map  generation  output  parameter 

— 

— 

NP0L 

zonal  mean  at  north  pole 

(various) 

— 

NS 

control  parameter  for  time  integration 

— 

2110 

STEP 

NSTF.P 

control  parameter  for  time  integration 

— 

0280 

CONTROL 

0CEAN 

ocean  location  indicator 

— 

7850 

COMP  3 

0FF 

solar  declination  control  parameter 

— 

— 

-389- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

P.J.I) 

*  ■  Pg  -  PT,  surface  pressure  parameter 

mb 

— 

PASS  2 

data  control  parameter  (not  used) 

— 

— 

PB1 

(1)  CONV(l,I),  parameter  for  south  pole  mass 
convergence 

2  -1  - 
m  sec  mb 

4320-4410 
COMP  1 

(2)  QT(1,I,L),  parameter  for  south  pole 
calculations 

(various) 

6450-6500 
COMP  2 

PB2 

(1)  CONV(JM, I) ,  parameter  for  north  pole  mass 
convergence 

2  -1  . 
xn  sec  mb 

4330-4420 
COMP  1 

(2)  QT(JM,I,L),  parameter  for  north  pole 
calculations 

(various) 

6460-6510 
COMP  2 

PB3 

PV(1,I) ,  parameter  for  s:'jth  pole  mass  convergence 

2  -1  . 
m  sec  mb 

4340-4430 
COMP  1 

PB4 

PV(JM,I),  parameter  for  north  pole  mass  convergence 

2  -1  w 

m  sec  mb 

4350-4440 
COMP  1 

PCI 

-  (h^  -  h3)r156t/TTr,  level  1  temperature 

CP 

change  due  to  penetrating  convection 

deg 

9310 

COMP  3 

PC3 

(AT^)  *  (h^  -  h^TjSAt/tT^  level  3  temperature 

CP 

change  due  to  penetrating  convection 

deg 

9320 

COMP  3 

II(J,I) 

(1)  ^  or  <J>3>  level  1  or  3  geopotential 

2  -2 
m  sec 

5380,  5420 
COMP  2 

(2)  or  °31Ta3>  Pressure  gradient  parameter 

2  -2 
m  sec 

5760 

COMP  2 

PHI  4 

■  VPHI4(J,I),  surface  geopotential  (-  0  if  ocean)  l 

2  -2 
m  sec 

5300 

COMP  2 

-390- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

PI 

constant  v  •  3.1415926 

— 

13040 

INPUT 

’IT  (J ,1) 

-(mn/2)  [ V •  *  (V^)  ] -C0NV ( J ,  I  )+PV ( J ,  I )  , 

net  column  mass  convergence  (■  it  tendency) 

2  -1  v 

m  sec  mb 

4520 

COMP  1 

PK1 

If 

p^,  upper-level  pressure  to  kappa  power 

(mb)* 

4600 

COMP  1 

PK3 

p*,  lower-level  pressure  to  kappa  power 

(mb)* 

4610 

COMP  1 

PL1 

Pj  ■  pT  +  o^tt,  level  1  pressure 

mb 

4580 

COMP  1 

PL  IK 

p*,  upper-level  pressure  to  kappa  power 

(mb)* 

8120 

COMP  3 

PL2 

p2  "  PT  +  level  ^  pressure 

mb 

8100 

COMP  3 

PL2K 

p*,  middle-level  pressure  to  kappa  power 

(mb)* 

8140 

COMP  3 

PL  3 

p^  -  PT  +  cyr,  level  3  pressure 

mb 

4590 

COMP  1 

PL3K 

If 

p^,  lower-level  pressure  to  kappa  power 

(mb)* 

8130 

COMP  3 

PM 

po  -  p^t  standard  tropospheric  pressure  depth  (■  fiOO) 

mb 

7370 

COMP  3 

PREC 

<«q),S  •  l«3  -  1.0, >1  •  O  *  • 

level  3  moisture  change  due  to  large-scale 
condensation 

8650 

COMP  3 

-391- 


FORTRAN 

Symbol 

Meaning 

Units 

Location 

PSF 

reference  global  mean  surface  pressure  (■  984) 

mb 

1430 

CMP, 

13480 

INPUT 

PSL 

Pq,  reference  sea- level  pressure  (•  1000) 

mb 

13460 

INPUT 

PT(J,I) 

”  +  At  PIT/mn,  updated  v  value 

mb 

4540 

COMP  1 

PTRK 

< 

Pj 

(mb)* 

8150 

COMP  3 

PTR0P 

PT>  tropopausc  pressure  (»  200) 

mb 

13460 

INPUT 

PU(J.I) 

*  * 

(1)  u  »  nnu,  zonal  mass  flux  (at  u  points) 

2  -1 
m  sec  mb 

2780-2890 
COMP  1 

(2)  TEMP  1,  provisional  pressure  gradient  parameter 

2  -2  . 
m  sec  mb 

5560 

COMP  2 

(3)  TEMP,  provisional  term  In  energy  equation 

(other  provisional  definition  in  6270  COMP  2, 
12320  COMP  4) 

2  . 

sec  deg 

6190 

COMP  2 

PV(J.I) 

*  ft 

(1)  v  •  tn*v#  meridional  mats  flux  (at  v  points) 

2  -1 
m  sec  mb 

2910-2940 
COMP  1 

(2)  C0NVM,  mass  convergence  at  level  2 

2  -1  w 

m  sec  mb 

4230 

COMP  1 

(3)  polar  PU  equivalent  (various  definitions) 

(other  definitions  in  COMP  4) 

2  -1  , 
m  sec  mb 

3050-3170 
COMP  1 

P1CB 

Pj/10,  level  1  pressure  In  centibars 

cb 

8370 

COMP  3 

P10K 

< 

Po 

(mb)* 

7310 

COMP  3 

FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

P3CB 

Pj/10,  level  3  pressure  In  centibars 

cb 

838Q 

COMP  3 

P4 

p^  ■  p  ■  it  ♦  pT,  surface  pressure 

mb 

8070 

COMP  3 

P4CB 

p^/10,  surface  preasure  In  centibars 

cb 

8390 

COMP  3 

P4K 

1C 

P4 

(®b)* 

8080 

COMP  3 

Q(J,I,K) 

equivalence  array  (K  ■  1,  2,  ...  9;  see 

Chapter  VII,  Subsection  A. 3) 

(various) 

2060 

STEP 

QD(J,I,9) 

array  Identification  (alternate  to  QT) 

— 

— 

QG 

qg(TR),  ground-level  saturation  mixing  ratio 

— 

9030 

CCMP  3 

QN 

Aq^,  total  level  3  mixing  ratio  change  due  to 
convection,  condensation,  evaporation 

— 

11300 

COMP  3 

QS1 

qs<Ti),  level  1  saturation  mixing  ratio 

-- 

8400 

COMP  3 

QS3 

qg(T,j),  level  3  saturation  mixing  ratio 

-- 

8410 

COMP  3 

QT(J.I.K) 

equivalence  array  for  temporary  variables 
(K  ■  1,  2,  ...  8;  see  Chapter  VII9 

Subsection  A. 3) 

(various) 

2070 

STEP 

QT0T 
(J,I ,20) 

equivalence  array  (see  Chapter  VII,  Subsection  A. 3) 

(various) 

0140 

COMMON 

-393- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

Q3(J,I) 

q 2*  level  3  mixing  ratio 

— 

— 

Q3M 

level  3  moisture  parameter 

— 

3410,  3660 
COMP  1 

Q3R 

q3  "  •  level  3  mixing  ratio  after  large-scale 

J  LS 

condensation 

— 

8680 

CCMP  3 

Q3RB 

max(q^,  10  ^) ,  provision  to  insure  q^  2  10~^ 

— 

9770 

COMP  3 

3T(J,I) 

q3n,  pressure-area-weighted  level  3  mixing  ratio 
(also  moisture  flux  at  3710,  3720  COMP  1) 

m2mb 

2570 

COMP  1 

Q4 

(1)  WUlq.Cy  +  (Cp/L)YS(T4  -  Ig)|, 
level  4  moisture  parameter 

— 

9110 

COMP  3 

(2)  q4  "  q,<T3>  +  J03<P§/Po><  -  T4Hcp/L), 
level  4  mixing  ratio 

— 

9350 

COMP  3 

RAD 

a,  earth's  radius  (-  6375)  (redefined  in  m  in 

13640,  INPUT) 

km 

13420 

INPUT 

RCNV 

DTC3/TGNV,  -  5At/T  •  1/2 
r 

7  r 

7290 

COMP  3 

RESET 

day  and  year  control  parameter 

— 

— 

RCAS 

R,  gas  constant  for  dry  air  (■  287) 

2.  -1  -2 
m  deg  sec 

13440 

INPUT 

RH3 

“  93/<Ia(Tj) ,  re3at*ve  humidity  at  level  3 

— 

8450 

COMP  3 

T' 

t 


-394- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

Rjfl4 

RH4  -  2RK3  •  GW(RH3  +  GW)*1,  ground-level  humidity 

measure 

— 

9000 

COMP  3 

R0T 

t  -  t  •  2PI/24  hr,  hour  of  day  (converted  to 
radians) 

radians 

7700 

COMP  3 

R0TPER 

period  of  solar  rotation  («  24.0) 

hr 

13090 

INPUT 

R04 

p4  •  PS(RT^)  air  density  at  level  4  (surface) 

-3 

g  cm 

9370 

COMP  3 

RSDIST 

square  of  the  normalized  earth/sun  distance 

— 

15520 

SDET 

RSETSW 

input  identification 

— 

— 

RUN0FF 

WF.T/2,  fraction  of  rainfall  which  runs  off 

-- 

11340 

COMP  3 

RO 

(1)  Rq,  long -wave  radiation  parameter  at  tropopause 

ly  day  1 

10200 

COMP  3 

(2)  R  -  R  +  0,8(1  -  CL) (R .  -  R, )  •  t(u*), 

0  0  h  y  o 

net  upward  long-wave  radiative  flux  at 

tropopause 

ly  day  1 

11190 

COMP  3 

ROC 

R^CL,  cloudy  sky  part  of  long-wave  radiative  flux 

at  tropopause,  times  cloudiness  (separately 
defined  for  cloud  types  1,  2,  3) 

ly  day  1 

10040,  101 
10170 

COMP  3 

R00 

R^t  clear  sky  part  of  lonR-wave  radiative  flux  at 
tropopause 

ly  day  1 

9980 

COMP  3 

-395- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

location 

R2 

** 

(1)  Rjt  long-wave  radiation  parameter  at  level  2 

ly  day  * 

10210 

(2)  R2  -  R2  +  0,8(1  -  CL)(R4  -  R4)  .  T(u*), 

ly  day  * 

COMP  3 

11180 

net  upward  long-wave  radiative  flux  at 
level  2 

COMP  3 

R2C 

RjCL,  cloudy  sky  long-wave  radiative  flux  at 

level  2,  times  cloudlneas  (separately  defined 
for  cloud  types  1,  2,  3) 

ly  day  * 

10050,  10010, 
10180 

COMP  3 

R20 

*2*  clear  sky  part  of  long-wave  radiative  flux 
at  level  2 

ly  day-* 

9990 

COMP  3 

R4 

(1)  R4.  long-wave  radiation  parameter  at 

level  4  1 

ly  day-1 

10220 

COMP  3 

(2)  R4  “  R4  +  oTg(TRr  -  Tg),  net  upward  long¬ 
wave  radiative  flux  at  level  4  (surface) 

ly  day  * 

11170 

COMP  3 

R4C 

R4'CL,  cloudy  sky  long-wave  radiative  flux  at 
level  4  (ground),  times  cloudiness 

ly  day  * 

10190 

COMP  3 

R40 

j 

*4*  clear  sky  part  of  long-wave  radiative  flux 
at  level  4  (ground) 

ly  Jay  * 

10000 

COMP  3 

SA 

A 

Sq  0,349  cos  r, ,  part  of  Incoming  solar 

radiation  subject  to  absorption 

ly  day  * 

10460 

COMP  3 

SCALE 

scale  factor  for  layer  radiative  heating 

deg  ly-1 

11680 

COMP  3 

SCALEP  i 

scale  factor  for  laver  latent  heating 

ram  day  *mb  * 

7420 

1 

COMP  3 

-396- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

SCALEU 

^10/cpH2g/i),  scale  factor  for  column  heat 
capacity 

— 

deg  ly  * 

7400 

COMP  3 

SC0SZ 

S0  co*  Ci  total  solar  radiation  at  top  of 
atmosphere 

ly  day  1 

10280 

COMP  3 

SD(J, I) 

(tm/2) [V  •  tt(V3  -  V^J  -  CONV(J.I)  -  PV(J,I), 
net  mass  convergence  (-  S  -  2mniro) 

2  “I  u 
m  aec  mb 

4530 

COMP  1 

SDEDY 

day  counter  starting  from  origin  LDAY 

day 

15030 

INSDET 

SDU 

•  u 

S  ,  four-point  average  mass  convergence 

3  -2  v 

m  sec  mb 

4750 

COMP  1 

SEASON 

(DY-173.0)/365,  time  parameter  In  aolar 
declination 

— 

15440 

SDET 

SIG1 

Oj,  upper-level  a  value  («  1/4) 

— 

7230 

COMP  3 

SIG3 

o^,  lower-level  o  value  (-  3/4) 

— 

7240 

COMP  3 

SIGC0 

FL/2,  level  designator 

— 

12360 

COMP  4 

SIND 

sin  5,  sine  of  solar  declination 

— 

15530 

SDET 

SINL(J) 

aln  ,  sine  of  latitude 

— 

14950 

INSDET 

SINT 

control  parameter  (not  U3ed) 

— 

— 

-397- 


FORTRAN 

Symbol 

Meaning 

Units 

1  Program 

I  Location 

SN(J,I) 

Identification  for  VT(1,1,2) 

— 

SN0W 

designator  for  snow-covered  land 

— 

7880 

COMP  3 

SN0W 

snowline  In  northern  hemisphere  (varies  +15* 
about  60  deg  N) 

radians 

7460 

COMP  3 

SN0WS 

snowline  In  southern  hemisphere  (■  60  deg  S) 

radians 

7470 

COMP  3 

SP 

P(J,I)  -  ir,  surface  pressure  parameter 

mb 

8050 

COMP  3 

SP0L 

zonal  mean  at  south  pole 

(various) 

— 

SS 

s 

o  "  °'651S0  cos  5,  part  of  Incoming  solar 
radiation  subject  to  scattering 

ly  day-1 

10470 

COMP  3 

SSI 

03(Pg/Po)  +  (0J  -  convective 

stability  parameter 

deg 

8760 

COMP  3 

SS2 

03(ps/Po)  +  J  l9l  "  03^P2^PO^<’  convective 
stability  parameter 

deg 

8750 

COMP  3 

SS3 

03(ps/po)  •  c°nvective  stability  parameter 

deg 

8740 

CO  MP  3 

STAGI 

logical  variable  for  zonal  map  staggering 

— 

— 

STAGJ 

logical  variable  for  meridional  map  staggering 

— 

— 

STBg) 

o,  Stefan-Boltzman  constant 

ly  day_1dag-4 

7650 

COMP  3 

-398- 


FORTRAN 

Symbol 

Meaning 

T - -  - - 

Units 

Program 

Location 

SO 

Sq,  solar  constant  (modified  for  earth/sun 
distance) 

ly  day  * 

7610 

COMP  3 

S4 

S  ■  (1  -  CL)S'  +  CL  S",  total  flux  of  short- 
8  8  8 
wave  radiation  absorbed  by  the  ground 

ly  day  * 

10940 

COMP  3 

S4C 

S£,  cloudy  sky  part  of  short-wave  radiation 

absorbed  by  the  ground  (defined  separately 
for  cloud  types  1,  2,  3) 

ly  day  * 

10660,  10760 
10890 

COMP  3 

S40 

S^,  clear  sky  part  of  short-wave  radiation 
absorbed  by  the  ground 

ly  day  ^ 

10570 

COMP  3 

U.I.L) 

level  1  or  level  3  temperature  (also  for 
temperature  after  heating  and  smoothing 
in  11470,  11980,  COMP  3) ;  L  -  1  denotes 

T^,  L  -  2  denotes 

deg 

8280 

COMP  3 

TAU 

time  in  hr 

hr 

— 

TAUC 

input  identification  (not  used) 

— 

— 

TAUD 

frequency  of  recalculation  of  solar  declination 
(-  24) 

hr 

13310 

INPUT 

TAUE 

day  of  integration  end 

day,  hr 

13310,  13320 
INPUT 

TAUH 

frequency  of  history  tape  storage  (■  6) 

hr 

13310 

INPUT 

TAUI 

TAUID  •  24  +  TAUIH,  starting  time  (in  hr) 

hr 

13290 

INPUT 

TAUID 

i 

starting  time 

day 

13730 

INPUT 

-399- 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

TAUIH 

hour  of  starting  time 

hr 

13740 

INPUT 

TAU0 

output  Interval  (*  24) 

hr 

13310 

INPUT 

TAUX 

starting  time  parameter 

hr 

13700 

INPUT 

TBAR 

(Ti  +  T^)/2,  average  temperature 

deg 

12830 

COMP  4 

TCNV 

relaxation  time  for  cumulus  convection  (■  3600) 

sec 

13400 

INPUT 

TD(J ,1) 

(T3  ~  T^) /2t i  vertical  temperature  (lapse-rate) 
parameter 

deg  mb  ' 

12740 

COMP  4 

TDBAR 

smoothed  value  of  TD 

deg  mb  ' 

12790 

COMP  4 

TDSM 

weighted  TD  parameter 

deg 

12820 

COMP  4 

TF.M 

tv 

B,  conduction  coefficient  for  ice  (also  defined 
as  cloudiness  parameters  in  COMP  3  but  not 
used) 

ly  day  '''deg  ^ 

11080 

COMP  3 

TF.MB 

short-wave  radiative  flux  reflected  from  type  1 
cloud  top 

ly  day  ' 

10840 

COMP  3 

TEMP 

(1)  intermediate  parameter  in  thermodynamic 
energy  conversion  calculation 

2, 

sec  deg 

6160-6340 
COMP  2 

(2)  t,  penetrating  convection  parameter 

deg 

9280 

COMP  3 

(3)  (HI  -  H3)/2,  heating  parameter 

deg 

11460 

COMP  3 

-400- 


FORTRAN 

Symbol 


TEMPI 


TEMP  2 


TEMS 


TEMSCL 


Meaning 


TEMP  (4)  vertical  wind  shear  (u,  -  u,  or  v  -  v  ) 
I  13  13 

(5)  if*  L.  averaged  heating 


(1)  Intermediate  parameter  In  pressure  gradient 
calculation 

(2)  Tj  -  (h*  -  h*)(l  +  Yl)-1  +  LR/2, 
penetrating  convection  parameter 

(1)  Intermediate  parameter  In  pressure  gradient 
calculation 


«>  t2  ■  yp4'p„>' 


T.  +  LR/2, 


penetrating  convection  parameter 
A  "  A 

(S4>  ,  flux  of  Sq  reaching  level  4  through 

clouds  (defined  separately  for  cloud  types  1, 
2,  3)  * 


sea-surface  temperature  unit  Indicator 


TEMU  |  (Ua>  -  U;i  or  u.j)  sec  c,  parameter  for  transmission 

A 

of  S  through  type  1  or  type  3  clouds 


TEM1  p^q^(2  +  K)  g  \  water  vapor  parameter 


TEM2  P3*>3^2  +  K)  g  (P4/p3)2+K,  water  vapor  parameter 


TETAM  f  temperature  parameter 


Units 


m  sec 


deg 


-1 


2  “2  v 

m  sec  mb 


deg 


3  -2  , 

m  sec  mb 


deg 


ly  day 


g  cm 


-2 


g  cm 


g  cm 


deg  mb 


Program 

Location 


11570 
COMP  3 

11930-11950 
COMP  3 


5550,  5810 
COMP  2 

9260 
COMP  3 


5570,  5830 
COMP  2 

9270 
COMP  3 


10630,  10730, 
10860 
COMP  3 


15910 
INIT  2 


10720,  10830 
COMP  3 


9790 
COMP  3 


9800 
COMP  3 


4620 
COMP  1 


FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

TETA1 

0^,  level  1  potential  temperature 

deg  K 

8720 

COMP  3 

TETA3 

0^»  level  3  potential  temperature 

deg  K 

8730 

COMP  3 

TEXCO 

DT,  time  step  (-  360)  (also  defined  as  DT/2  In 

2480  COMP  1,  4970  COMP  2  for  advectlve  terms) 

sec 

2470 

COMP  1 
4960 

COMP  2 

TG 

Tg,  ground  temperature  (original) 

deg  K 

8560 

COMP  3 

TGR 

(1)  T  ■  T  If  ocean,  T  -  T  If  ice 
gr  g  gr  o 

or  snov  and  T  >  T 

gr  o 

deg  K 

11040 

COMP  3 

(2)  T  -  (A1  +  A2)/(B1  +  B2) ,  ground  temperature 
(revised) 

deg  K 

11130 

COMP  3 

TGOO 

T0P0G,  ocean  surface  temperature  or  surface 
geopotential 

deg  or 

2  -2 
m  sec 

7840 

COMP  3 

THL1 

0^Po  ,  level  1  temperature  parameter 

deg  mb  * 

8220 

COMP  3 

THL3 

0^PO*>  level  3  temperature  parameter 

deg  mb  < 

8230 

COMP  3 

THRP 

time  In  days  and  fractions  (■  TAU/24) 

day 

1970 

STEP 

TICE 

T  ,  melting  point  of  ice  (■  273.1) 

deg  K 

7350 

COMP  3 

T0FDAY 

t  ■  time  of  day  counter  (Greenwich  hours) 

hr 

14120 

INPUT 
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FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

T0P0G(J,I) 

surface  topography  indicator 

deg  or 

2  -2 
m  sec 

16090 

INIT  2 

TRANS (X) 

f(x)  ■  (1  +  1.75x  ‘^^)  ,  slab  transmission 

function  for  long-wave  radiation 

/  *  -2 

(x  ■  u^  In  g  cm  ) 

— 

7150 

COMP  3 

TREADY 

Integration  control  parameter  (not  used) 

— 

— 

TRST 

tape  output  control  parameter 

— 

— 

TRSW(X) 

,  n  0.303 

i  -  o.z/lx  ,  transmission  function  for 

short-wave  radiation  (x  -  u*  in  g  cm"2) 

— 

7160 

COMP  3 

TS (J ,1) 

Identification  for  UT(1,1,2) 

— 

— 

TSPD 

DAY/DTC3 ,  number  of  source  (COMP  3)  calculations 
per  day  («  48) 

— 

7410 

COMP  3 

TT(J,I,L) 

(1)  T,  temperature 

deg  K 

1960 

STEP 

(2)  TII,  pressure-area-weighted  temperature 

rn2deg  tab 

2620 

COMP  1 

TTR0P 

TT  0r  V  troP°Pau8e  temperature  (extrapolated 
from  T^  and  T^  In  pK  space 

deg  K 

8510 

COMP  3 

T1 

T^  level  1  temperature  (redefined  if  convective 
adjustment  occurs) 

deg  K 

8200,  8280 
COMP  3 

T2 

T 2 »  level  2  temperature 

deg  K 

8520 

COMP  3 
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FORTRAN 

Symbol 

Meaning 

Units 

Program 

Location 

T3 

T^,  level  3  temperature  (redefined  If  convective 

adjustment  or  large-scale  condensation  occurs 

In  8660,  COMP  3) 

deg  K 

8210,  8270 
COMP  3 

T4 

T^,  air  temperature  at  level  4  (redefined  if 
convection  occurs  In  9340,  COMP  3) 

deg  K 

9090 

COMP  3 

U(J,I,L) 

u,  zonal  wind  speed  (L  -  1  designates  u  ,  L  ■  2 
designates  u^) 

m  sec  ^ 

— 

URT 

4  >  *  * 

oTtt(um  -  i^) ,  total  long-wave  flux  at  tropopause 
from  atmosphere  above  tropopause 

ly  day  * 

9950 

COMP  3 

UR2 

4  *  * 

oTj-uu^  -  Uj),  total  long-wave  flux  at  level  2 
from  atmosphere  above  level  2 

ly  day  1 

9960 

COMP  3 

US 

ug  ■  0.7(3u^  -  u^J/2,  surface  zonal  wind  speed 

-1 

m  sec 

7530 

COMP  3 

UT(1,I,1) 

provisional  variable  during  zonal  smoothing 

— 

7000 

AVRX 

UT(J.l.L) 

(1)  u!Iu,  pressure-area-weighted  zonal  wind  speed 

3.  -1 

m  mb  sec 

2670 

COMP  1 

(2)  uTI,  value  after  Coriolis  force  calculation 

3  .  -1 

m  mb  3ec 

3170 

COMP  2 

V(J,1,L) 

v,  meridional  wind  speed  (L  ■  1  designates  v^, 

L  ■  2  designates  v^) 

“1 

m  sec 

— 

VAD 

TEXCO  SUu^,v^/2,  vertical  advection  of 
u,v  momentum 

3  -1  w 

m  sec  mb 

4780,  4810 
COMP  1 

Meaning 


Unite 


Prograa 

Location 


VPHI4(J,I) 


2  +  K,  paraaeter  for  effective  veter  amount 

data  control  paraaeter  (not  ueed) 

name  of  labeled  coonon  block  (KEYS) 

polar  maee  flux  paraaetere  (varioue  definitions) 

polar  mass  flux  paraaetere  (various  deflnitione) 

*4»  •«f»ce  (level  4)  geopotential  (*  0  if  ocean) 

^pl^p3^*’  *evel  1  geopotential  paraaeter 

(pj/pl)'C»  level  3  geopotential  paraaeter 

°l1,^pl*  *  pressure  gredlent  paraaeter 

a3*/p3>  level  3  pressure  gradient  paraaeter 

vg  •  0.7(3v3  -  Vj)/2,  surface  meridional  wind 
speed 

(1)  vJlu,  pressure-area-velghted  meridional  wind 
speed 

(2)  vJI,  value  after  Coriolis  force  calculation 


2990-3120 
COMP  1 


3000-3210 
COMP  1 


2  -2 
a  sec 


1570 

VPHI4 


5330 
COMP  2 


5340 
COMP  2 


5310 
COMP  2 


5320 
COMP  2 


7540 
COMP  3 


m^sec  *mb 


3  -1 

n  sec  mb 


2680 
COMP  1 

5190 
COMP  2 


FORTRAN 

Symbol 

Moaning 

Units 

Progress 

Location 

W(JtI) 

tesqsorary  variable  for  H,  PV,  PHI,  QT 

(various) 

— 

WET 

GW,  ground  vetness  (acalad  0  to  1) 

— 

11360 

COMP  3 

WINDP 

IV.I’  +  C,  surface  vlnd  speed  vith  gustiness 
correction  (G  -  2.0  m  sec-1) 

m  sec  1 

8930 

COMP  3 

WMAG 

\\\\  surface  vlnd  speed  (root-mean-square  value) 

m  sec-1 

7940-7950 
COMP  3 

WMAGJM 

1 vf 1 ^ •  surface  vlnd  speed  for  north  pole 

tL  sec-1 

7570 

COMP  3 

WMAG1 

lvgl*.  "urface  vlnd  speed  for  south  pole 

m  sec-1 

7560 

COMP  3 

W#RK1(J,1)I 
W0RK2 (J,I) / 

temporary  array  In  nap  routines 

(various) 

1760 

MAPGEN 

WTM 

|m|,  area  velghtlng  factor  magnitude 

m2 

1370,  1400 
CMP 

WW 

2mn*4,  vertical  velocity  neaaure 

2  .  .  -1 
m  mb  hr 

11670 

COMP  3 

XLABL(9) 

Input  character  Identification 

— 

— 

XLEV 

level  Identification  parameter  (not  used) 

1 

— 

XXI 

(T1  +  T3)/(p*  +  convective  adjustment 

parameter 

deg  mb-* 

8250 

COMP  3 

X 


FORTRAN 


Program 

Location 


-407- 


REFERENCES 


Arakawa,  A.,  "Numerical  simulation  of  large-scale  atmospheric  motions," 
in  Numerical  Solution  of  Field  Problems  in  Continuum  Fhyeice , 

Vol.  2,  G.  Birkhoff  and  S.  Varga,  Eds.,  American  Math.  Soc., 
Providence,  R.  I.,  pp.  24-40,  1970. 

Arakawa -  ^* *  Katayama,  and  Y.  Mintz,  "Numerical  simulation  of  the 
general  circulation  of  the  atmosphere,"  in  Proa.  WMO/IUGG  Sympo- 
eium  on  Numerical  Weather  Prediction  in  Tokyo ,  Meteor.  Soc. 

Japan,  Tokyo,  pp.  IV.7-IV.8.12,  1969. 

Berkofsky,  L. ,  and  E,  A.  Bertoni,  "Mean  topographic  charts  for  the 
entire  earth,"  Bull .  Amer.  Meteorol.  Soc.,  36:  350-354,  1955. 

Charney,  J.  G. ,  et  al.,  "The  feasibility  of  a  global  observation  and 
Analysis  Experiment,"  Nat.  Acad.  Sci./Nat.  Res.  Ceuncil  Publi¬ 
cation  1290,  Washington,  D.  C. ,  1966. 

Cressman,  G.  P.,  "Improved  terrain  effects  in  barotropic  forecasts," 
Monthly  Weather  Rev. ,  88:  327-342,  1960. 

Dietrich,  G. ,  General  Oceanography ,  translated  by  F.  Ostapoff,  Inter¬ 
science,  New  York,  1963. 

Jastsow,  R. ,  and  M.  Halem,  "Simulation  studies  related  to  CARP,"  Bull. 
Amer.  Meteorol.  Soc.,  51:  490-513,  1970. 

Joseph,  J.  H.,  "Calculation  of  radiative  hefiting  in  numerical  general 
circulation  models,"  Tech.  Rep.  No.  1,  Numerical  Simulation  of 
Weather  and  Climate ,  Department  of  Meteorology,  University  of 
California  at  Los  Angeles,  1966. 

Katayama,  A.,  "Simplified  schemes  for  calculation  of  the  radiation," 
unpublished  manuscript,  1969. 

Langlois,  W.  E. ,  and  H.  C.  W.  Kwok,  "Description  of  the  Mintz-Arakawa 
numerical  general  circulation  model,"  Tech.  Rep.  No.  3,  Numerical 
Simulation  of  Weather  and  Climate,  Department  of  Meteorology, 
University  of  California  at  Los  Angeles,  1969. 

Langlois,  W.  E.,  and  H.  C.  W.  Kwok,  Numerical  Simulation  of  Weather 
ana  Climate.  Part  III.  Hyperfine  Grid  with  Improved  Hydrologi¬ 
cal  Cycle,  Large-Scale  Scientific  Computation  Department,  IBM 
Research  Laboratory,  San  Jose,  Calif.,  1970. 

Leovy,  C. ,  and  Y.  Mintz,  "Numerical  simulation  of  the  atmospheric 

circulation  and  climate  of  Mars,"  J.  Atmoe.  Soi.  ,  26:  1167-1190. 

1 9  * 


-408- 


Mantbe,  S. ,  and  F.  Mtfller,  "On  the  radiative  equilibrium  and  heat 
balance  of  the  atmoaphere,"  Monthly  Weather  Rev..  89:  503-532, 

1961. 

Mintz,  Y.,  "Very  long-term  global  integration  of  the  primitive  eque- 

tiona  of  atmospheric  motion,"  in  WMO  Teoh.  Note  No.  66,  pp.  141-167, 
1965. 

Mintz,  Y.,  "Very  long-term  globnl  integration  of  the  primitive  equa- 

tione  of  atmospheric  motion:  an  experiment  in  climate  eimulation," 
in  Meteorological  Monographs ,  No.  30,  pp.  20-36,  1968  [a  revlalon 
of  Mintz* a  WMO  Teoh.  Note  No.  66  article  of  1965], 

Murgatroyd,  R.  J.,  "Some  recent  measurementa  by  aircraft  of  humidity 
up  to  50,000  feet  in  the  tropics  and  their  relationahip  to  merid¬ 
ional  circulation,"  Proceedings  of  Symposium  on  Atmospheric  Osone3 
Oxford ,  IUGG  Monograph  No.  3,  Paria,  1960. 

Poaey,  J.  W. ,  and  P.  F.  Clapp,  "Global  diatributlon  of  normal  surface 
albedo,"  Geofisioa  International ,  Mexico,  pp.  33-48,  1964. 

Sverdrup,  H.  U.,  Oceanography  for  Meteorologists,  Prentice-Hall,  New 
York,  1943  [aee  Chart  I]. 


